TIREZ PLUS 
DE VOTRE TRS-80 

g03& 

Sommaire, p 3 • Coup d'ceil sur quatre ordina- 
teurs, p 17 • Essais : EDTASM + ; Adventure, p 20 • 
Copiez nos programmes sans erreur, p 

27 • Decidez avec Visicalc, p 31 • Chez 

■ W un transporteur, p 33 • Un programme 
S^^— d'enseignement, p 35 »Le decathlon, p 38 



• La boite 5 outils mathematiques, p 39 • Jeu :Ma- 
thic, p 42 •Modeles 1 et |j; 3, quelles differen- 
ces? p 44 •Prevoir, p 47 ^gg^ • Nevada CobolT 
p 50 • CP/M sur modele 1, p_52 •La repre- m y 



sentation des variables, p 53 • Pour vous 
aider a programmer, p 55 • 20 francs pour con 
necter deux TRS, p 57 • Sonorisez voire TRS, p 58 
• La multiplication egyptienne, P ^^^^^ 59 
RUBRIQUE POQUETTES: ^^^^tra- 



g-LL- ssss c ^ ^ e cour ] DeS/ p 3Q . un mini-traitement de 
textes, p 61; les cavernes, p 62; la "calculette", p 64 



. N° 2 - 2' trimestre 1982 



Canada : 6.50 $ - Belgique : 200 FB - Suisse : 11 FS 



DESORMAIS VOS MICRO-ORDINATEURS SONT 
DE VERITABLES SYSTEMES DE GESTION 

avec CORVUS 

TECHNOLOGIE WINCHESTER 

Capacite de stockage : 5, 10, 20, 40 et 80 mega- 
octets, 

Compatible avec APPLE II et lii, LS1 11 

BUS S-100, HP 125, COMMODORE, 

XEROX 820, ZENITH H/89, TRS-80 II et III, NEC, ^ 

IBM ordinateur personnel, ATARI... -^^ 

CONSTELLATION : multiplexeur intelligent pour 
partager la memoire de masse et une imprimante 
entre plusieurs micro-ordinateurs. 

MIROIR : sauvegarde rapide et economique sur 
magnetoscope jusqu'a 80 mega-octets. 

OMNINET : reseau local sur une simple p 
torsadee de 1 2O0 metres 

(connexion jusqu'a 64 micro, 

a I'aide de Transporteurs de faible c 

(Prix : 6 250 F (ht). 
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Editorial 



Nous pensions avoir pris toutes nos precautions 
pour pouvoir repondre efficacement aux demandes de nos 
lecteurs, tant de renseignements que d 'abonnements. 

Mais nous avions serieusement sous-estime l'accueil 
que vous feriez a notre premier numero! Alors, nous 
avons ete debordes, mais les choses sont maintenant (a 
peu pres) rentrees dans l'ordre. Nous avions un instant 
espere gerer les abonnements sur ordinateur: impossible 
en fait de mettre le fichier des abonnes sur une seule 
disquette, il en aurait fallu 4 ou 5 de plus, et cela 
n'aurait de toute facon pas resolu le probleme! Les 
abonnements sont done geres a la main, ce qui devrait au 
moins pour quelque temps limiter les erreurs. 

II nous a bien sur ete impossible de repondre indi- 
viduellement a toutes vos lettres, mais sachez qu'elles 
nous ont fait grand plaisir. Vous, nos lecteurs, vous 
etes tolerants, pas bougons du tout devant noa erreura, 
et la confiance que vous avez ete nombreux a nous accor- 
der en vous abonnant sans meme avoir vu le premier nume- 
ro en est le meilleur exemple. Mais ne croyez pas que 
nous en profiterons pour continuer a sortir en retard! 

Ce numero deja doit beaucoup a votre courrier: cer- 
tains articles sont ceux que vous nous avez envoyes, et 
nous avons essaye de tenir compte de vos suggestions. 

Ainsi, vous trouverez dans ce numero 2 une rubrique 
pour les "poquettes" signalee par la bordure bleue des 
pages en fin de journal. Si vous n'avez pas de poquette 
ne negligez pas pour autant de lire cette rubrique: les 
programmes qui y figurent ne deshonorent pas les ordi- 
nateurs individuels "de table". 

Les debutants se disaient leses par manque de pro- 
grammes pour leurs machines 16K: nous leur proposons 
cette fois de petits programmes, voire des PUL (pro- 
grammes d'une ligne!) qui devraient satiafaire meme les 
possesseurs d'une memoire plus confortable. 

Et puis, nous avons le plaisir de vous presenter 
une premiere mondiale (si, si!): le moyen de verifier si 
vous avez recopie correctement les programmes que nous 
publions, grace a un systeme de somme de controle. Main- 
tenant, si un programme que vous avez tape ne marche 
pas , vous pourrez etre sur que cela ne vient pas de 
vous, mais (helas!) de nous! Ce qui nous incitera bien 
sur a faire encore plus attention, soyez-en assures. 

TRACE 
• TRS-80 est une marque deposee de Tandy Radio-shack. 
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ou vous laisserez libre choix a votre imagination jusqu'a con- 
currence de 480 points par ligne. Elle met a votre disposition la 
totalite des 116caracteres standard US-ASCII en matrice 5x 7, 
plus les caracteres allemands, suedois et francals accent ues. 
Livree avec un manuel trancais et une cassette de ruban 
encreur, elle est garantle90)ourspiecesetmain-d'ceuvre. D'un 
poids faible (moins de 4,5 kg), compacte (234 mm en hauteur, 
420mm en largeuret 136mm en hauteur), de consommation r6duite 
(5Wau repos, 25 Wen impression), elle est le complement Indis- 
pensable a votre systeme, et nous serons heureux de vous la 
fairs connattre a I'un de nos magasins, oil notre personnel de 
vente vous accueillera avec le sourire. 

TRS-80. Apple II " et Pel - sont les marques deposees respeclives de TANDY CORPORATION. APPLE COMPUTER el COMMODORE BUSINESS MACHINES. 



Avec I'arrivee sur le marche de la GP-100, I'impression par 
impact (methode UNI-HAMMER de SEIKO) va encore (aire des 
ravages. Ceprocede, d'un coutde fabrication imbattable, per- 
metenfin a tout amateur demicro-informatiquedepossedersa 
propre imprimante a un prix plus que raisonnable. Connec- 
table a presque tous les micro-ordinateurs (ideale pour TRS- 
80'", Apple 11'", Pet'"), elle est munie en standard d'un interface 
Centronics. Elle imprime sur du papier ordinaire de 254 mm. (h) 
par 241 mm. (1)jusqu 'a 1 original plus 2 copies a la Vitesse de 30 
caracteres par seconde. Elle vous permet le choix entre deux 
largeurs de caracteres (80 caracteres par ligne en normal et 40 
en elongue pour les titres) etun mode graphique point par point 



Nous vous reservons le meilleur accueil a nos boutiques 
ouvertes du lundi au samedi de 9h30 a 12h30 et de 14h a 19h. 

Veme pai correspondance - Cr6dli - Carle bleue - Delaxo a I'exponation - Expedition dans toute I'Europe. 

281.23.17+ 92, rue St Lazare, galerie 92, 75009. Paris 
858.15.95+ Centre Commercial Terminal 93, 93100. Montreuil 



GRAPH IE 



FRANCE 




1 



le magazine des utilisateurs de TRS-80 





TRS-80 modele 1, TRS-80 

modele 2, TRS-80 modele 3, 

TRS-80 Couleur, TRS-80 

depoche, Sharp* PC-1211 

Video-Genie*, LNW* : 

si vous utilisez ou si vous 

comptez acheter un de ces 

ordinateurs, sachez que la revue 

TRACE a ete creee pour vous. 

TRACE vous foumit quatre 

fois par an des programmes, 

des astuces, de nouvelles idees 

d 'applications. TRACE est 

independant de tout constructeur, 

et vous tient au courant de toutes __ 

les nouveautes dans les domaines des logiciels, des materiels et des 

peripheriques, quelle qu'en soit la source. TRACE teste pour vous, en toute objectivite 

et independance, les produits materiels ou logiciels qui vous interessent. TRACE n'est 

pas en vente chez les marchands de journaux. Pour vous abonner ou pour recevoir un 

numero, il vous suffit de nous retourner le bon de commande ci-dessous. 

•TRS BO. Sharp. Video-Genie el LNW sonl des marques deposees 

TRACE, le complement indispensable de votre TRS-80 



Norn 

Adresse 
Pays 



BON DE COMMANDE 

a retourner a TRACE, 8 rue Saint-Marc 75002 PARIS 

Profession 



Ville 



Code postal 

□ Je desire recevoir le n° 1 □ le n° 3 □ de TRACE 

(Prix d'un n° 25 FF; Belgique 200 FB; Suisse 11 FS; Canada 6,50 $C; Etranger 30 FF). 

□ Je desire m'abonner a TRACE pour 1 an, 4 n os , a partir du n° 3 

(Tarif France 85 FF; Belgique 680 FB; Suisse 37 FS; Canada 22 $C; Etranger 100 FF). 

Ci-joint mon reglement indispensable par cheque bancaire □ cheque postal □ 

(Pour les pays aulres que la France, uliliser un viremen! en FF compte Credit Lyonnais Paris n° 30002 00402 8401 M. Les frais de viremem sonl a la charge de I achelsur.) 



Video Genie / y/tem 

GENIE I EC 3003 

SON - MINUSCULES ~ BASIC (R)* 

* Extension BASIC microioh LEVEL II competibk TANDY. 

j9WH///W«lMi»" iiiiiiiinniiinnn.ii.il 




EG 3QD3 



- 16 K RAM Utilisateur 

- 14 K ROM BASIC Microsoft 
LEVEL II 

- Microprocesseur Z 80 

- Modulateur video (Sortie UHF 625 
lignes) 

- Clavier QWERTY 

- Magnetophone a cassette integre au 
boitier, pas de reglage de volume 



— Prise DIN pour deuxieme magne- 
tophone 

— Ecran 16 lignes 32 ou 64 caracteres 

— Graphismes 128 x 48 

— Cassettes et programmes compatibles 
avecTRS80* Level II 

— Alimentation integree 110 / 220 / 
240 V 50 Hz 

— Branchement direct sur televiseur ou 
moniteur video 

— Livre avec: cordons, 1 cassette 
demonstration. Moniteur en option 



- Bus compatible TRS 80" 

- Vu-metre. reglage niveau de lecture 

EG 3008 

- Memes caracteristiques + clavier 
numerique minuscules + software RS 
232 C + clavier fonction. Sortie video 
seulement 

• TRS 80 marque depo*ae 
«Tandy Radio Shack». 



NOUVEAU: BASIC avec renumerotation - Instruction Hard Copy - Moniteur en langage machine - Nouvelle routine 
clavier avec minuscules - Repetition curseur clignotant - Sortie son avec haut-parleur integre. 

OPTIONS de raccordement a EG 3003 ou EG 

3008 



— Imprimante graphique incr6mentale 
TONO HC 900, tracteur et friction 40 - 
48-80-96 - 136colonnes 

- Imprimante TONO HC 800, 80 - 132 
colonnes 1 20 CPS 

— BoTte d'expansion EG 3014 

- Moniteur professionnel Scran vert 
TONO CRT 120 G 

EG 3014 - 16 (32) 

Boite d'expansion comprennant : 
contrdleur de disques Floppy, interface 
parallele Centronics, memoire RAM 
1G K (32 K). En option, interface 
RS 232 C, Bus S 100. Fourni avec c^ble 




EG 3016 

Interface de raccordement pour 
imprimante type Centronics (TONO 
HC 800) avec cables. 



EG 400 T 

Simple lecteur de disque. 

EG 401 AT 

Double lecteur de disque. 

EG 3021 

Doubleur de densite 211 

EG 3020 

Adaptation Bus RS 232 C 



EG 3022 

Adaptation Bus S 100 

EG 3018 

Floppy cdble 

EG 3016 C 

Cdble imprimante 
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Les graphiques sur TRS-80 

par Don Inman 
traduit par Alain Pinaud 

Dansce livre, I'auteur 
'/ montre comment avec 
une connaissance mmimale du 
Basic el du TRS-80 visualiser 
des graphiques sur ecran II de- 



bute par les notions elementaires 
de Iraces de ligne puis aborde 
les dessms geometriques pour 
deboucher sur I'animation de 
dessm et autres applications plus 
complexes 

144 pages - 75,00 FF /570.00 FB 



m 



Editions du P.S.I. 

41-51, rue Jecquard 

BP 86 - 77400 Lagny-s/Mame 

Telephone (6) 007.59.31 



P.S.I. BENELUX 
5, avenue de la Ferme Rose 

IIBOBruxelles 
Telephona (2)345.08.50 



Envoy»( c» Don accompegne Oe volie <eolen>enl a EDITIONS 00 P.S.I ou» PS J. aCNCUJX I.TR.1 



Je desire recevoir 



exemplaires du volume LES 



GRAPHIQUES SUR TRS 80 au prix unitaire de 75,00 FF 
(570,00 FB) taxes, port et emballage compris (par avion : 
ajouter 5 FF (44 FB) par livre). 
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31, Bd DES BATIGNOLLES 75008 PARIS 
TEL. : 522.70.66 (+) TELEX 280 902 F 

Ouver) sans interruption du lundi au iomodi do 9 h 30 a 18 " 30 

Metro : Rome. Place de Cltchy. Europe - Parking assure au 43 bis, Bd des Batignotles 

Venle par correspondence - Credit - Leasing - Carle Bleue - Vita, 



JEUX TRS 80* ET VIDEO-GENIE 

ARRIVACE DE NOUVEAUTES TOUTES LES QUINZAINES 

TOUS Cf S LOGIC/EI S FONCT/ONNENT SUR TRS 80 AIODELE I ft MOBILE 3 AINSI QUE SUR VIDE O-GENIE 1 ET 1. 



CONFLICT 2500: 
Jeu de type wargome. Simulation 
dun combat galoctique au 25 e siecle 
Plusieu'S scenarios. Jeu pour 

ft lOuours ou an solitaire conlrc 
I ordtnoteur. 

16 K, Cassette 175 F TTC 

LES ENVAHISSEURS : 
En Iranian. Toute une Hotle de vaisseaux 
ennemis s opproche de votre base 
Detruise; les avanl qu'ils ne vous 
atteignent ! Belle animation, Sonore. 
Cassette 16 K 110 t TTC 

ATTACK FORCE i 

Combat de vaisseaux galactiques dons 
un lobyrinthe d'etoiles. Belle animation 
grophique, sonore Foncttonne avec 
commandes au clavier au avec un paddle 
Casj.lt. 16 K 160 F TTC 

COSMIC FIGHTER i 
Seul a bord de votre votsseau cosmique, 
vous devoz delruire la flotte des 
envahisseurs extra -galactiques. Des 
groupes d'atlaques sont envoyes sur 
vous el vous pilonnent sans merci. Belle 
animation graphique, sonore. Fonctionne 
ovec commandes ou clovier ou ove< un 
paddle. 
Cassette 16 K 160 F TTC 

COMBAT GALACTIQUE : 

En Iranian. Meme chose que "Les 
envohisseurs" mois en plus, certains 
vaisseaux ennemis se regroupcnl ef 
foncent sur nous en tirant. 
Cassette 16 K 130 FTTC 

ETOILE NOIRE: 

En froncais. Des vaisseaux ennemis 
Iraverjent I'ecran a toute vitesse. 
Defruisez -les en vol tout en evitant leur iir. 
Cassette 16 K 90 F TTC 

SUPER NOVA : 

Vous traverse* une partie de la galaxie 
encombrec r/asleroides. Some/ vous 
N r ou les detaiire a temps ? Belle 
animation grophique. Fonrtionm 
avec Paddles. 
Cassette 16 K 160 F TTC 

METEOR MISSION 2: 

Des astronautes sont en detresse sur une 
planefe enlovree dune oak 



d'osterotdes. Avec une navetle spotiale. 
descendez les chercher un par un en evitant 
ou en detruisant les asteroides. Jeu sonore 
avec d'excellents graphismes. Possibilile 
de icu avec paddles I 
Cassette 16 K 160 F TTC 

IAGO 'OTHELLO CHALLENGER) i 

Jeu dOthello. Excellent niveau. Tres belle 

presentation graphique. A ne pos essayer 

H vous craignez d'etre humilie par voire 

ordinaleur I 

Cassette 16 K 245 F TTC 

SARGON II : 

Jeu d'echecs de tres ban niveau (plusieurs 
niveau* de |eu). Echiquier offiche en 
permanence sur lecran. 
Cosselte T6 K 270 F TTC 

Disque 32 K 310 F TTC 

DAMES CHALLENGER: 

Fn /roncuis Regies Irancaises. Plusieurs 
niveaux. Version Ires perlormonle. 
Cassette 16 K 220 F TTC 

MAnix : 

En frunccm Jeu de 'ellexion conlre 
rordinolcur. Sur I'ecraf t ; une grille de 
cHffrt [■ '0 a + 10). A chaque texjr. vous 

chotsir un selon ccrtaines 
regies, puis lordinateur |Oue et en choisit 
■.elon les poswbililes que vous lui 
over loisse. Ainsi de suite jusquo 
epuisemonl des chirfres. Le gagnanl est 
celut qui totalise le plus de points. 
Cassette 16 K 90 F TTC 

SOLITAIRE t 

in honcan. Jeu du solitaire 
Cassette 16 K 60 F TTC 

TANKT1CS : 

Superbe wargome simulant la bataille 
de chars aux abo'ds du Dniepr le 
6 Sepfembre 1°42. Vous dirigez un 
groupede -chars de la Wermacht contre 
tordinaleur qui lient ceux de Farmee 
Rouge sovietique. Regies dossiques du 
wargome wr cases hexagonales. (EMeH 
de terrain, etc.). Utilise tautes les 
possibilites du wargome sur ordinateur - 
I'effet dun coup ao but est different 
lelon que le char touche se presente de 
face (blindage le plus ecxm} ou de Hone 
(blindage plus mmcej. Possibility de voir 



.tins etre vu, etc .. If es belle presentation 
en cofrrel carton comprenant un plan de 
jeu, de* pieces cartonn«M?* pour ftgurer 
les unites, un manuel d instructions el une 
cassette 5 sctenarios oMferents. Un feu 
Avalon H.ll 
16K, K7 295 F HC 

THE BATTLE OF SHILIOH 

j Tres bon wargome simulont lo bataille 
| d©Shi«ohle6Avrill862 durant la 
' guerre civile omericoine. Regies 
daisiques du wargome (Jones de 
conlrdle, effets de terrain, etc). Jeu 
contre Pordinateui qui vou- ' 
votre camp en debui de portie. Plan do 
|eu offiche en permai ran 

Fournit en coffret carton conlenni 
carte plastiftee, un manuel et une 
cassette. 
16K.K7 275 F TTC 



LUNAR LANDER i 

Tres belle animation yrar/" 1 

cfalunis-soge Demondc beaucoup 

dadi- 



Cassette lft K 



160 F TTC 



INVASION ORION: 

Wargome tactique de combat spatial. 
1 ou 2 joueun contre lordinateur. Dix 
scenarios different (possibilile d en creer 
d'aulres). Des vaisseaux, des asterotdes 
et des planetes (plusieurs dons chaque 
camp, selon le scenario chotsi) se hvrent 
bataille a coup de phasers, de missiles, 
de torpilles. Mouvements des vaisseaux 
ct des projectiles visualises sur I'ecran en 
permanence. La tactique de I'ordn 
resit? loujours fort coherente et hob-le 
Cassette 16 K 295 F nc 

STAR WARRIOR : 

Sur lo planele Fornox regno une diclatufe 
impttoyable. Les habitants font appel 
d un mercenaire pour les libcrer. Arme 
de missiles el d'un desintegrateur, vous 
devez aFfronter seul les armees du 
dictoteur. Bonne presentation grophique 
Cassette 16 K 350 F TIC 

NUKEWAR : 

Worgame. Simulation de guerre nucleoid- 
enlre votre poys et celut de lordinateur. 
Cassette 16 K 175 F TTC 

MIDWAY CAMPAIGN : 

Worgame- Simulation de la balaille de 

Midway. L ordinaleur |oue pou* 1 M 

japonais. 

Casietlel6K 175 F TTC 



FLIGHT SIMULATOR: 

Simutafiofl I* i--. reel. Sur 

r*aan : tous !- iu de 

bord e» une v 

App't- 

parte; 

Cassette 16 K 270 F nC 

AIR TRAFFIC CONTROLLER: 

I'nulahon ciu 

Jeu 
en lempsreel 77 avi 
aveuglement a vov oil 

■ 
Cassette 16 K 245 FHC 

MUR DE BRIQUES i 

us Une ball' 

■ luette. vou* 1 1 

poui e le briques p* ■ 

Cassette 16 K 90 F TTC 

EMPIRE OF THE OVER-MIND 

.<> retruuve/dans 

ui .ct.- Mrange "i' il raudra rinKiora 

plusieun Mgmi ■• QmMi an dot 

toui inqun.'itin' 

vivantes ? (. ■ it que vous 

nsquer-vous 

Cassette 48 K 350 F TTC 

ROBOT ATTAK l 

Dans une station sualinlr envcilne pai des 

rohols M '"- mission . oV 

ces robots. Tres l» ' 

Jeu parlant (prononcc des phroses 

lorsque lo sortie son est connectee) 

16 K, K 7 160 F TTC 

TIGERS IN THE SNOW 

Wargame 

Ardennes en Decernbre 1V44. 

Jeu en solitaire cont< i 

pout lenir le camp allemond ou It 

i 
lecron. Tres bon . 275 F TTC 




•TRS 80 est une marque deposee par TANDY-RADIO-SHACK NOS PRIX SONT DONNES A TITRE INDICATIf ET PEUVE NT rTRE MODIFIES SANS PRCAVIS 
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LIBRAIRIE TRS 80*ET VIDEO-GENIE 

ARRIVAGE DE NOUVEAUTES TOUTE5 LE5 QUINZAINES 



OUVRAGES EN 
ANGLAIS : 

THE BOOK Volume 1: 

Toutcs le-s routines niu'liyniotiqucs de la 
ROM du TRS (ou V.deo -Genie) et 
comment i'en servir dans un proyramme 
en lortyage machine : addition, 
soustruction, multiplication et division 
SIN. COS, TAN, LOG. INT, etc.. 
Localisation des RAM de travail de lo 
ROM, 120 pagtt 135 FTTC 

THE BOOK Volume 2: 
Mode demploi des routines dt ■ 
de la ROM du I RS (ou du Video Genie) 
pour ulil isation dam ' n I >es en 

Inngacje machine. Gestion du clavier dt- 
lecron du lecleur cl' 'c, De 

nombreux 'trues" : par ex. : comment 
desactiver lo louche "BREAK" 
120 pay t» 135 F TTC 

TRS DISK & OTHER MISTERIES i 
Tout sur le Fonctionnement "inhme* du 
D.O.S. : localisation el interpretation du 
DIRECTORY, recuperation dedonnees et 
de programmes sur unn uV, 
endommogee, deverouillacje des mots de 
passe, etc. Explication du fonctionnement 
desutilitaires du NEW OOS. 

UOpuges 195 F TTC 

MICROSOFT BASIC DECODED 
& OTHER MISTERIES: 

Ouvrage ires cornplel sui lu ROM 

oft : Moded'emplo 
des principales rout - 
assembleur : routine? mathematiques, 
entree de dannees au clavier, affichage 
JUT I'ecran et sur impnmante. Lisle 
complete des points H entree et 04 
de la ROM 300 pages. 260 F TTC 

THE CUSTOM TRS & 
OTHER MISTERIES : 
Vous apprend comment modifier voire 
TRS pour : obtenir des minuscules, un 
graphisrne haule-resolulion, une horloge 
temps reel, etc... Avec schemes et 
instructions (partie non compaltble 
Video-Genie), 

Dans la seconde paitie, apres le "hard" i 
le "soft" (compatible Video-Genie) i 
comment ecrire des programmes Baste qui 
s aulu e^ecutent, comment initialiser le 
MEMSIZE, comment compressor les lignes 
dun programme, etc. 290 pages PRIX NC 



BASIC FASTER AND BETTER 
& OTHER MISTERIES: 

Comment programmer de (aeon 
structure en Basic Comment UWJ 
ensemble le Basic et le langage machine. 
Manipulations He bits sous Basic De Ires 
nombreux "frucs" concernant notommenl 
I'utilisalion du clavier et de la Video, 
Nombrreuses routines (tri, recherche, etc.) 
en langoge mochine, a utiliser sous Basic. 
Tout ut i chapitreest en outre reserve au 
TRS modele 2. 288 pages .. 280 F TTC 
TRS80INTERFACINGVolumel: 
Le TRS 80 el lo communication avee son 
environnernenl. Nombreuses experience* 
decrttes. Schemas. (Non compatible 
Video-Gemel 105 F TTC 

TRS 80 INTERFACING Volume 2 : 

Complete le Volume ^ ; Conversions 
anologique - digital, traitemenl des 
donnees. Communication serie. Gestion 

iiorruptions. Expenence* et schemas. 
(Non compatible Video-Gertie] 105 F TTC 

TRS ASSEMBLY LANGUAGE : 

La programmation du TRS (ou du 

■-Genie) en langage machine. 
Comment programmer une multiplication, 
une divitton, laire une lecture ou une 
ecriture cassette, un occes disque, 
etc... 186 page*. .. 140 F TTC 

57 PRACTICAL PROGRAMS & GAMES 
IN BASIC : 

Listings camplels en Basic de 
57 programmes mathematiqu-- 
de jeu ; integration numerique, 
interpolation lineaire, space wars, etc... 
90FTTC 

24 TESTED READY TO RUN GAME 

PROGRAMS IN BASIC i 

Listings complets en Basic de 

programmes de |eux : Star Warp, Sink 

the Bismarck, Sub Hunt. Biorhytm, 

etc 90 F TTC 

OUVRAGES EN 
FRAN$AIS 

MANUEL D.O.S. ET NEW - D.O.S. 
en francais : 

Utilisation des drives, programmatian en 
Disk Basic, emploi du Disk Operating 
System et des utilitaues : COPY 
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SUPERZAP.emploidel'E.i' 

Assenibleur disques IEDTASM), du 

desassembleur (DISASSEM1, etc. 

92 poges 95 F nC 

LA PRATIQUE DU TRS 80 Volume 1 1 

Programmation el utilisation du TRS 80 en 
Basic Jeu construction du Basic. Exemples 
128 pages. 65 F TTC 

LA PRATIQUE DU TRS 80 Volume 2 I 

Fooctions speciales du Bosic |USR, PEEK, 
POKE. etc.). Programmation en langague 
machine Utilisation de I'Ediieur. 
Assembleur, du T-BUG. du DEBUG, etc. 
Exemples de programmes en langage 
machine, notammen! : trace de droits 
sur I'ecran, instructions du 1 80. 
220 pages 85 F TTC 

LA PRATIQUE DU TRS 80 Volume 3 : 

Le Hardware. Schemas el explications 
detaillees de fonctionnement des 
circuits du TRS (ouvroge non compatible 
avec VideoGenie). 128 pages 75 F TTC 



LE BASIC ET SES FICHIERS Volume 1 1 
Creation. utittsaMoi »us 

le Basic Nombreux comefl 

liwi la gestion des 

RcNen mi rn k tW' O rd in ofui 

75 F TTC 

LE BASIC ET SES FICHIERS Volume 2 : 

Exemples de i "'• pour 

la gestion des lichiers en I 

de so 'n rapide, •■' 

144 pages 75 F TTC 

PROGRAMMER EN BASIC i 

Tresbonni programmation 

icro-ordinaleui s 

pages 65 FTTC 

PROGRAMMER EN ASSEMBLEUR i 
Introduction compli yrominotion 

en lanymju machine 1/ 80). De Ires 
nombreux examples "'lus. 

144 pages 75 F TTC 

LA PRATIQUE DU TRS 80 BASIC 2 i 
Manuel Ires cornplel de program- 
du TRS 80. Explications claires et 

70 F TTC 
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BON DE COMMANDS 
Retourner a : SIVEA S A. - 31, Bd Hes Batignollet 75008 PARIS 
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MODI 

Man.j . .■ P 


















FRAIS DE PORT ET D'EMBALLAGE. 

Aiouiei 220 F pour toute commonde component, pour lout ou parti' 

nteui video, papier pour u 
irtpai inrvic I Gorse, DOM-TOf-' 

nous consulter par telephone ou coutrier i-n a 



TRS 80 est one marque deposee por TANDyRADIO-SHACK 



# 



f 



pour 



SUPERSOFT 

TRS-80 



-V 



GRAF transforme votre impri- 
mante LINEPRINTER VI en 
table a dessin de 
65536 points. GRAF fonc- 
tionne en ajoutant des com- 
mandos au BASIC DISK. Sim- 
ple a utiliser, performant. 
Utile pour tracer des courbes, 
faire du graphisme. 
MOD I DISK 309 F 

GESTCO gere un compte ban- 
caire personnel 1000 a 
2000 Mvts. Calcul du solde. 
Liste ecran, imprimante. TRI 
sur code ou libelle. 
MOD I DISK 290 F 



ZLIST structure vos program- 
mes avant la sortie ecran ou 
imprimante, sans modifier 
I'espace memoire. ZLIST 
espace chaque mot cles, 
idente les FOR-NEXT, IF ELSE. 
Tres utile pour la mise au point 
de vos programmes. 
MODI K7, DISK .... 199 F 



UTILDIR memorise a votre 
place le contenu de 80 dis- 
quettes. Ne cherchez plus un 
programme. UTILDIR sait ou il 
se trouve. 
MOD I DISK 290 F 



GESTION de stocks. GESTION comptes clients pour Modele I, 
II, III, de 1000 a 2000 fiches. Standard ou sur mesure. Nous 
consulter. 

Trademark of Tandy C° 



Retourner a : M. H. POSSARD - TABANAC - 33550 LANGOIRAN 

f»(56)67.29.61 

Je desire recevoir une documentation dtitaille'e sur ces produits. 

NOW : Profession: 

Adresse : Code postal : 

ViHe : Telephone : 



FORMATION continue 



chez vous 

durcrnt 6 mois un 

TRS 80 - 16 K 



(modele I ou III) 

Pour assurer vos Iravaux pratiques 

concernant notre stage 

d'initiation a la mkro-informatique , 

que nous vous proposons dans le cadre 

de la formation continue. 

Duree : quatre fois un jour sur PARIS 

Population : foute personne non 
informalicienne 



•> 



Objectif : rendre accessible a lous, X"<- v ° 

le langage informatique X ./" 

y^ 



Renseignements el inscriptions : f £ 



O.F.C.I. Responsable : M. MEYS 



SJ 



B.P. 09- 91480 QUINCY 
Tel. (1) 770.86.32 ou 54.59 
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EXTENSIONS 
TRS 80® a monter 

] soi-meme 




Voici lun des meilleurs moyens de taire des econo- 
mies. Montez votre interface extension TRS 80 vous- 
meme. Entre autres, les cartes MOX 2 et 3 ne sont pas 
uniquemant des interfaces expansion .LOW COAST-, 
ce sont surtout des interfaces plus puissants. plus 
souples tout en restant compatibles avec le materiel 
existant. 

MOX 2 : extension memoire 32 ou 48 K • Circuit 
d'alimentation sur la carte avec protection centre les 
surtensions et court-circuits • Connections directes 
MODEM 300 bds • Horloge temps reel • Interface 
RS 232 C et 20 mA • Emplacement EPROM disponi- 
ble 2716 ou 2732 • Interlace PRINTER parallele • 
2 interfaces cassette selection par Soft • Interface 

floppys compatible LEVEL II 736 F nc 

MOX 3 : Interface floppy 5" double densite • Software 
compatible Level II et modele 3 • Connection directe 
pour MODEM 300 bds • Interface RS 232 et 

Sy^im 725FTTC 



ASSEMBLEZ 
VOTRE PROPRE 
MICRO ORDINATEUR 

En (in voici du nouvMU du VRAIMENT NOUVEAUI Grace au 
systeme PROF 80, vous ate pouvoir construlre votre propre 
micro-ordinateur piece par piece el arrive! apres quetques 
heures de travail a un systeme performant. table et surtout 
(conomique. La base LEVEL II qui I'tquipe le rend emiere- 
ment compatible avec toute la bibliotheque LEVEL II disponl- 
ble a ce |0ur 

CARACTERISTIOJUES : CPU Z80, 4 MHz . RAM 64 K. 
MM41I6 • ROM 12 X. 2716 • Interfaces video, cassette, 
paralkile. sArie. (loppy 5" • Clavier 73 touches • Pseudo 
graphique. _^>\ L , waw _ . 

%S* m 647 nc 




NOUVEAUTES 

POUR TRS 80 et APPLE 
CHEZ PENTASONIC... 

HARD-DISK 5" 
'■5Moctets9920 F nc 

Les avantages du dieque dur sont multiples Ires grand* 
liaolrti. Uux d'erreur negligeatile. Vitesse de transfer! tres 
eievee, et au|Outd'hui grace aux prix PENTASONIC, le lord 
disk SEAGATE 5 Models est accessible a tous 
Le OTC 505 est de dimensions identiques a un lecteur 5" 
cUssique. il est vendu avec une serie de cartes cootrMeur qui 
permettent de I'adapter sur la majorru! des systtmes 

CARTE contrbleur DTC 510 (2 Seagate) MC7 F TTC 

CARTE contrNeur DTC 520 (kjem + floppy) 11170 F TTC 

ADAPTATEUR 

APPLE . . 21MFTTC 

TRS 80-1 JM1F1 

TRS 80-11 ...3317FTTC| 
TRS 80-III 3423 FTTC, 
BUS EXO 6834*8 F TTC I 
BUSS 100 2tl1FTTC* 




PENT* 



34, rue de Turin, 75008 PARIS T*l. : 293.41.33. 

Metro . Liege, Gare St-Lazare, Place Clichy 

10, bd Arago, 75013 PARIS. Tel.: 336.26.05 (SERVICE CORRESPONDANCE) 

Metro : Gobelins 

5, rue Maurice-Bourdel (sur le pont de Grenelle) 75016 PARIS. Tel.: 524.23.16 

Bus 70/72. Arret Maison de I'ORTF. Metro : Charles-Michels. ~ 

Heures douverture des magasins du lundl au samedi inclus de9h a 12h30elde iftii 19 n 30 ■ 




HOURRA I 



Enfin, voila notre revue TRS ! Bravo I 
(Irenee Prat). 

C'est avec un grand plaisir que J'apprends la 
creation d'une revue destlnee aux TRS-80 ! Je 
vous tranamets mes plus vlfs encouragements et 
mes voeux de longue route a TRACE ! 
(Christian Stefani ) . 

Je vous fellcite vivement pour le premier numero 
de TRACE (JP. Stremler). 

Votre publication ra'interesse vivement ... et 
etait tres attendue Chez les amateurs francopho- 
nes (C. Corbou). 



TRACE en retard . . . 



Je vous ai commande, 11 y a environ 3 semaines, le 
numero 1 de "TRACE" et aujourd'hui, solt environ 

I mois apres, Je n'ai toujours rien recu. S'agit- 

II d'un oubli, d'une negligence, d'un retard ? 
Comprenez ma deception d'autant plus grande que 
mon idee premiere etait que dea personnea voulant 
falre partager les plaisirs du TRS ne pouvaient 
qu'etre serieuses ... (Pierre Ardaud). 

Vous avez ralson. Le facteur lui aussi, lorsqu'il 
nous apporte chaque Jour deux gros sacs de colis 
postaux, nous prend de moins en moins au serieux ! 
Mais il est moins evident de depouiller 2000 
lettres que d'en envoyer une. En realite, nous 
avons ete "legerement" depasses par les evenements, 
et la revue est sortie avec un mois de retard par 
rapport a l'annonce qui en etait faite. Pour nous 
falre pardonner, il nous a fallu tres tot penser 
SERIEUSEMENT au numero 2 ... 



d'un an ! 



• Un mois de retard, c'est deja trop ... Mais etes- 
vous sur de bien posseder tous les bulletins de 
l'AUT depuls 1950 ?. 



A vos souhalts ! 



Tous mes souhaits pour qu'elle grandlsse tres vite 
en renommee ... et surtout en nombre de pages. 
(C. Corbou). 



Slnceres felicitations pour ce periodique tres 
attendu, et qui passera tres prochainement men- 
suel, Je l'espere (Christian Trigueros). 



- J'espere que votre "TRACE" suivra la trace de 

certaines revues amerlcaines plelnes de programmes 
SERIEUX, pour la gestion en general, et pas seu- 
lement de Jeux, qui mettent dans les revues fran- 
caises l'ordinateur personnel au niveau du jouet 
(Jose Estrada). 



- Apres lecture complete du numero 1, J'ai resaenti 
un grand malaise, celul d'etre a nouveau rejete 
car etant debutant. Presque tous les articles sont 
ecrits pour des possesseurs de systemes a disquet- 
tes. Or Je pense que la majorite des TRS-80 vendus 
en France, ne possedent que des cassettes 
[Jacques Laporte). 



Au sujet des revues amerlcaines, il faut realiser 
trois choses : le budget dont elles disposent ne 
possede aucune mesure avec le notre ; ces revues 
ont une experience de plusleurs annees ; les pro- 
grammes qu' elles publient (sur 3 ou '(OO pagea, il 
peut effectivement y en avoir plein !) provlennent 
avant tout dea lecteurs. Voua aaisissez ce qu'il 
vous reste a falre ? Envoyez-nous beaucoup de 
programmes, et nous augmenterons la perlodicite et 
le nombre de pages - ainsi que la publicity par la 
meme occasion. Envoyez-nous de bons programmes 
serieux et nous deviendrons une bonne revue serieu- 
se. C'est tout simple ! 

Nous avons compose le numero 1 de cette revue avec 
les articles que nous possedions, et 11 se trouve 
que la plupart d'entre eux sont orientes vers les 
systemes a disquettes, c'est vrai. Cela peut 
changer si vous le voulez vraiment. 



Des auteurs . . . 



Je vous Joins la photocople du dernier bulletin 
de l'AUT ou il est fait mention qu'une revue 
nominee TRACE, consacree au TRS-80, serait publiee 
depuls Janvier 81 (JC. Ruby). 



Pourriez-vous m'indiquer si vous envisagez de 
publier des programmes de lecteurs, et quelles 
sont dans ce eas, les modalltes pour vous les 
soumettre (Frederic Mora). 

Oul , oui ! Nous attendons vos programmes avec 
impatience ! Un article manuscrlt - de preference 
lisible - nous conviendra parfaltement. Pour lea 
programmes, un listing serait souhaitable lorsque 
cela est possible (sur papier BLANC et sans tra- 
rae . . . ) , et une cassette du programme peut nous 
faire gagner un temps precieux (du moins si elle 
est lisible elle aussi . . . Deux enregistrements 
successifs sont conseilles). La solution luxueuse, 
c'est le texte (compose avec Scripslt ou Electric 
Pencil) et le programme sur mlnidisquette — et 
cela passe tres bien au courrier entre deux car- 
tons. 
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De facon a eviter quelquea problemes, n'envoyez 
paa le merae article a DIFFERENTES revues A LA FOIS. 
Votre article ne paasera paa forcement dans le 
trlmeatre suivant votre envoi. Ne vous en lnquie- 
tez pas : cela peut etre une question de pagina- 
tion ou d'equilibre des sujets traitea. 
Enfin, n'exigez pas de nous une reponae systemati- 
que <ce n'est pas par negligence, c'est par manque 
de temps ! ) . 



Des questions techniques ? 



- Je suis sur le point d'acheter un drive 80 pistes 
double faces. On m'a appris que je ne pourrai 
Jamais lire une disquette 35 ou 10 pistes, perdant 
alnsi la compatibillte avec lea autres utllisa- 
teurs. Qu'en est-11 exactement ? J'ai entendu 
parler d'un doubleur reallaant cette compatiblli te . 
Est-ce exact ? (Christian Trigueros). 



* II ne faut pas confondre la denslte de pistes 
(obtenue mecaniquement , alnsl que la denslte de 
faces) et la denslte de secteurs (obtenue electro- 
niquement). Lea drlvea 80 plates utllisent la 
premiere, ce qui slgnlfle que 80 pistes concentri- 
ques occupent l'espace des 35 ou 10 pistes habi- 
tuellea. Sur ce type de materiel, le deplaceraent 
du bras de lecture/ecriture errtre deux plates est 
deux fois molns Important qu« sur lea unites 35 ou 
10 platea. Le mecaniame est done plus precis et de 
ce fait, 11 est possible d'acceder deux fois plus 
de platea que la normale. Pour pouvoir relire une 
disquette 35/10 pistes sur cea unltea, 11 faudrait 
que le braa de lecture/ecriture aaute une piste 
sur deux. De l'idee a l'acte, il n'y a qu'un pas .. 
qui eat realise par le systeme d' exploitation 
NEWDOS80 version 2 d'Apparat, qui autorise option- 
nellement la lecture des disquettes 35/10 pistes 
sur des unites 80 pistes. L'ecriture, par contre , 
n'est pas conseillee par Apparat, ce qui ne vous 
assure done qu'une compatibillte partielle. Dans 
le cas oil vous visez la compatibillte totale, 11 
est souhaitable de n'utlliser cet equiperaent qu'en 
complement a une unite 35/10 pistes. 
Attention toutefols : certains constructeurs 
appellent "Unite 80 pistes", une unite 10 pistes 
reelles mais double faces ... Celles-ci sont compa- 
tibles avec les disquettes 35/10 pistes mais leur 
appellation est impropre. Le tout est de savolr 
s'il y a ou non 80 pistes PAR FACE. 

Le "doubleur" (en fait le rapport n'est que de 
1,8) permet d'augmenter le nombre de secteurs dans 
chaque piste : 18 secteurs au lieu de 10. Pour 
cela, il est neceaaalre d'utiliser un syateme 
d' exploitation ad hoc (NEWDOS80, LDOS, DBLDOS, ce 
dernier etant livre avec le doubleur). Avec le 
dlspositlf, la compatibillte est asauree pulsque 
les disquettes simple denslte continuent de fonc- 
tionner comrae par le passe. II est tou Jours possi- 
ble de cumuler disquettes 80 platea et doubleur. 
On obtlent alors 80 plates de 18 3ecteurs chacune. . 
mais le probleme de compatibillte evoque plus haut 
exlate toujours. 



- Vous decrivez dans le numero 1 , une carte permet - 
tant de doubler la capacite des unites de dis- 
quettes (Mapper 2) en utilisant des disquettes 8 
pouces. Je voua aignale que le "Doubler 2" permet 
de doubler la capacite de3 diaquettea 5 pouces. 
Que penaez-vous de cette posaibilite ? (Jean-Yves 
Berenguer) . 



II est evident qu'll y a un choix a faire au 
depart. Le "doubler" vous permet de conserver voa 
diaquettea d'origine et vous assure la compatibill- 
te 5 pouces. Les disquettes 8 pouces quant a elles, 
sont plus encombrantes et plus bruyantes. D'un 
autre cote, voua beneficlez d'un support plua 
atandard (compatible CP/M par exemple) pour une 
capacite plus importante (77 pistes de 17 secteurs 
en NEWD0S80 contre 10 pistes de 18 secteurs). De 
plus, la firme LNW commercialise egalement un 
"doubler" 5 et 8 poucea. Nous esperons pouvoir 
vous en parler bientot. 



Une bogue . . . 



- Les broches 8 et 9 de Z12 utl Usees pour la modi- 
fication de l'affichage video du numero 1 de TRACE 
sont deja occupees (selon la page 12 de "la 
pratique du TRS" volume 3). Peut-on les remplacer 
par les broches 10 et 11 7 (Jean-Claude 
Fabbricino). 




* Honte a nous ! II s'aglt effectlvement d'une 

erreur d'ailleurs corrlgee recemment dans la der- 
nlere edition de l'ouvrage mentionne : la page 120 
ne considere plus Z12 8/9 comme etant un circuit 
libre. II est effectlvement possible d'utillaer 
les sorties 10/1 1 . 
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Deux montages ont ete esaayea par Jean-Claude 
Stlerrer et Jean-Claude Blatry qui noua ont fait 
part de leur succea. Ila utllisent toua deux un 
circuit exterieur, l'un un 71LS132 (1 NAND 2, 
triggers de Schmitt), 1 'autre un 71LS03 (collec- 
teurs ouverts). Le circuit peut etre soit colle, 
soit soude par les pattes d' alimentation 7 et 11 
sur un autre circuit. Avec l'omplol du circuit a 
collecteurs ouverts, qui a l'avantage de permettre 
une utilisation multiple du signal WAIT (qui est 
charge par une resiatance), il noua aemblerait 
toutefols plus prudent de prevoir des resistances 
de rappel sur les sorties 3, 8 et 8 ( 1,7K au plua 
5V). 
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Dossier n°31 .- imprimeur 



Aujourd'hui, mes off res de prix desarment 

mes concurrents. Et mes stocks d'encres 

et de papiers sont evalues au centime pres. 

Efficace mon TRS-80 Tandy ! 




«Etre imprimeur, c'est un metier difficile. 
Pour que mon entreprise vive, je dois offrir des 
prestations calculees au plus juste. C'est-a-dire 
gerer des stocks d'encres et de papiers qui ont 
des <<dates de fraicheur», anticiper des entrees 
de fournitures pour obtenir un marche important 
ou alleger les stocks, modifier le planning, prof iter 
des taux de change, amortir les pointes impre- 
visibles... /'experience et le talent ne suffisent plus. 

Notre TRS-80 nous aide a gerer notre acti- 
vity a la feu i He de papier pres et a calculer des 
off res deprix redoutablement competitives. 
Si seulement tous mes equipements s'amortis- 
saientaussivite...» 



Tandy 

TRS-80 



Le TRS-80 de 
Tandy est un micro-ordi- 
nateur «professionnel» 
et efficace parcequ'il 
est parfaitement adap- 
tableauxbesoinsprecis 
de chaque utilisateur. 
Souple, rapide.fiable 
par sa conception et sa 
realisation, c'est aussi 
unoutil simple a I'usage. 
II n'exige pas deforma- 
tion informatique speci- 
fique. Et toutes les ope- 
rations s'affichent auto- 
matiquementsurecran. 

De larges possibili- 
tes d 'extension sont 
prevues (imprimante, 
memoire supplemen- 
tal, etc.). Ce qui per- 
meta I'utilisateurdu 
micro-ordinateur 
TRS-80 de developper 
et ameliorer son sys- 
teme selon ses besoins 
propres. 

Tandy est le leader 
du marche de la micro- 
informatique et nos 
TRS-80 composent la 
gamme la plus perfor- 



mante de micro-ordina- 
teurs. Leurs prix sont 
accessibles a tous les 
budgets. Nous vous 
offrons un reseau de 
distribution qui s'etend 
de jour en jour : plus de 
8500 magasins dans le 
monde, dont quelque 
600 en Europe. Notre 
service apres-vente se 
charge de tous les pro- 
blemes de maintenance 
etdedepannage. En 
outre, nous travaillons 
en permanence au de- 
veloppement de mate- 
riels et bgiciels toujours 
plusperfectionnes. 

TRS-80: une gam- 
me d'ordinateurs a 
partirde5.595FTVA 
17,60% incluse.avec 
un large eventail de 
progiciels. 



The biggest name in little computers 




Une collaboration a 'est engagee entre lea editions 
HACHETTE et la Societe TANDY pour developper et 
diffuser des programmes a vocation pedagogique sur 
les mlcro-ordlnateurs TRS-80. Des auteurs sont re- 
cherches, avis aux amateurs ! 



La Societe Pentaaonic commercialise des unites de 
minidlsquettes a lntegrer sol-meme, pour un prix 
tres competitif : 2100 F ttc (10 pistes simple-face, 
simple ou double densite), 2995 F (idem mals en 
double-face). Une alimentation est egalement diapo- 
nlble (UtO F), ainsl qu'un cable de raccordement 
(153 P"). 

Cette meme Societe inporte egalement le "doubleur 
Percom" qui, pour un prix inferieur a celui d'une 
unite de dlsquette (1995 F), permet presque de 
doubler la capacite des unites existantes. Le dou- 
bleur est llvre sous la forme d'un petit circuit 
imprime s'enfichant dans le chassis d' extension du 
modele 1 (pas de soudures) et est accorapagne d'un 
systeme d ' exploitation (DBLDOS). Les systemea LDOS 
et NEWD0S80 acceptent egalement ce dispositlf. 



La Societe TRS-SOFT commercialise un utllitalre 
- TRSK7 - permettant aux possesseurs de "nouvellea 
ROM" sur modele 1, de dupllquer certains programmes 
recalcitrants ( EDTASM notamment). Ces derniers sont 
lus en memolre, puis recopies selon le format correct 
Prix : 100 F ttc. 



L' Association des Utillsateurs du TRS-80 (AUT) re- 
cherche des "champions" deslrant partlciper aux Jeux 
les plus reputes sur TRS. Volcl les scores a 
battre : 



6777 
21922 

188910 

58920 
3«820 
15560 



SUPER NOVA 


10H 160 


DECATHLON 


GALAXY INVASION 


733160 


BARRICADE 


METEOR MISSION 2 


52920 


NOVA 


COSMIC FIGHTER 


122960 


PINBALL 


ATTACK FORCE 


59360 


ALIEN 



SCARFMAN 



31760 ROBOT ATTACK 



Prevenez l'AUT si vous avez fait mleux. Si vous 
acceptez de partlciper a un tournoi a Paris, indi- 
quez les dates qui vous convlendralent et les Jeux 
eur lesquels vous voulez eoncourir et adressez votre 
reponae a l'AUT avant le' 15 septembre 1982 : 

AUT, 27 Avenue Duquesne 75007 Paris 

Cette association a par ailleurs annonc6 le resultat 
du concours de programmes de Jeux qu'elle a organise 
fin 1981. Ces Jeux, ecrits par des amateurs, ont ete 
aoumls a un Jury compose de huit personnes et ont 
ete recompenses par des prix (dont trols abonneraents 
a TRACE I). Volcl les trois premiers : 

1er prix : ALLIEN, par Pascal Pellier 

2eme prix : SCRABBLE, par Regis Darnault 

^eme prix : 6 JEUX DE CARTES, par Daniel Botton 



Les juges ont tenus compte de la qualite graphique. 
de la valeur sonore, de la cinematique, de l'intel- 
ligenee et de l'attrait presentes par chacun de ces 
Jeux. 



CP/M sur modele 3 7 Voila qui est desormals possible 
avec le "Freedom 3A" commercialise par la flrme 
americaine Field Engineering Consultants. De manlere 
analogue au "mapper" d'Omikron (voir article dana ce 
numero), le Freedom 3 a'enfiche aur la carte du 
modele 3. La ROM et la zone clavler/ecran sont re- 
poussees en fond de roemoire tandls que la memolre 
vive commence a l'adresse 0. En option (Freedom 3B), 
ce dispositlf peut contenlr des circuits RAM addl- 
tlonnels recouvrant la zone ROM devenue inutile. En- 
fin, le Freedom 3C est identique au 3B mals contient 
de plus, une horloge "calendrler" allmentee par 
batterle. Les prix sont respectlvement de 199, 310 
et <I90 dollars selon les options. 



La Societe beige BCM (Bureau de Calcul Mathematlque) , 
annonce un nouveau produit : le BCM-7. II s'agit 
d'une carte additionnelle pour le modele 2 realisant 
les fonctlons auivantes : clavier AZERTY accentue, 
deux jeux de caracteres a 1' ecran commutablea par 
programmea (cabochona de touches modifies) pour le 
francais et l'allemand, un bip sonore, une horloge- 
calendrler en temps reel allmentee par batterle, un 
mode programme oil les mots-cles BASIC et DOS sont 
affiches en une seule frappe, un mode d' emulation 
ecran des modelea 1 et 3 (16 llgnea de 61 caracterea) 
permettant une compatibility avec les logiclels de 
ces deux machines. Une adaptation accentuee du pro- 
gramme Scrlpsit est fournle a tout poaseaaeur de la 
version standard. Prix : 19000 FB ou 2700 FF ttc. 



Pour les utillsateurs de cassettes sur modeles 1 et 
3, un "generateur de DATA BASIC" (cf. TRACE n° 1 
pour une version disque) est diaponible chez GRAPHIE. 
Avec ce programme, une zone blnalre bornee par deux 
adreases est convertle en memolre sous forme de 
llgnes DATA en BASIC. Mais ce n'eat paa tout ! Ce 
programme est accompagne d'utlll talres "system 11 tres 
pratiques : "EXTBAS". qui ajoute les fonctlons LINE 
INPUT et INSTR au BASIC niveau 2, "JKL" qui effectue 
une recopie d' ecran sur 1 • imprlmante, "C0NCAT" pour 
reunir deux programmes BASIC (fonction MERGE du 
BASIC disque), "AUTEDT", un edlteur automatique, qui 
facilite les operations d'editlon d'un programme 
BASIC. Prix inconnu pour 1' instant. 
D'autre part, GRAPHIE commercialise le tout nouveau 
"Orchestra 90", un synthetlseur musical pour modele 
3. Base sur le principe d'Onchestra 80 (voir Trace 
numero 1), ce dispositlf permet de reprodulre en 
outre l'effet stereophonlque et les percussions. 
Prix : 1500 F environ. 



SIVEA vient de recevolr des nouveautes aur TRS80 et 
Vldeo-Genle : MASTER REVERSI (Jeu d' Othello tres 
"corlace"), trois "wargames" simulant dea batalllea 
celebres : TANKTICS, TIGERS IN THE SNOW et BATTLE OF 
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SHILLOH. ASYLUM est un Jeu d'aventure avec graphis- 
raes en trols dimensions et SCARFMAN, une simulation 
du celebre Jeu electronique des cafes. Avec SPACE 
SHUTTLE, vous pourrez conduire la navette spaciale 
americalne. EDTASM-PLUS (voir notre essal dans ce 
numero) complete cet arrlvage d' outre atlantlque dont 
les prix a'etendent de 150 a 395 F ttc. 



Une confidence maintenant : un synthetiseur vocal a 
vocabulaire illlmite - et de surcrolt. francals - 
sera disponible sur le modele 1 des le mois de mal 
chez Pentasonic. L'oriTinalite du prodult reside 
(tans son falble cout par rapport aux prodults exis- 
tants (de l'ordre de 400 F), ainsi que dans le pro- 
cede utilise : la synthese de la volx est reallsee 
par programme, a parti r des phonemes de la langue 
francaise et necessite un petit circuit imprirae 
connecte d'une part sur le bus TRS, d 'autre part sur 
un haut-parleur (non-fourni ) . La 3ynthese vocale de 
n'iraporte quel texte est mise en oeuvre facilement 
(nous avons meme pu le constater !) a partir d'un 
programme BASIC ou assembleur. L'ensemble est com- 
plete d'une disquette (version cassette en prepara- 
tion) et d'une notice d'utilisation . 



Le TRS-Couleur presente en France un grave defaut: 
11 n'est pas compatible avec notre bon vleux 
systeme SECAM, alors meme qu'il a pu etre adapte en 
PAL pour nos amis beiges et suisses. Mais la 
prochalne venue en force de l'ordinateur Thomson 
(voir notre premier numero), ainsi que la non moina 
prochalne arrivee d'une version SECAM du VIC 20 de 
Commodore, doivent donner a reflechir a Tandy. 
D'autant que les ventes du Couleurs en France 
doivent plutot etre freinees par le fait qu'on ne 
peut l'utiliser qu'en noir et blanc (un corable vu 
le nom du systeme!) ou sur un poste de television 
couleurs vralment multiatandard, ce qui n'est pas 
en general le cas des postes vendus sous cette 
denomination. II ne reste plus qu'a souhaiter que 
l'aide de speclali3tes de Matra (dont une filiale 
fabrique des televiseurs couleurs) ou d'ailleurs, 
Tandy reussisse rapidement a realiser cette 
adaptation. Pour le Sicob, ou mieux encore pour la 
prochalne Micro-Expo. . . 



MANIFESTATIONS : 

TRACE etait present a Infora a Lyon (mi-avril), nou3 

participerons egalement a Micro-Expo (14-19 Juin) 

et a la Boutique lnformatique du SICOB (22 septembre- 

1er octobre) . 

Micro-Expo se tlendra au Palais des Congres de la 

Porte Maillot. A noter le 17 juin, de It a 18 heure3, 

une session "speciale TRS" qui sera animee par Henri 

Frere, l'un des membres de notre equlpe. 



Si vous souhaitez utiliser le langage FORTH sur votre 
modele 3, la societe americalne Interactive Computer 
Systems devralt vous interesser. Ell propose en effet 
Omni FORTH , qui necessite une modele 3 avec au moina 
32 K octets de memoire vive et une minidisquette, a 
un prix de 130$ (environ 800 FF). 



La societe GES vient d'annoncer la prochalne disponi- 
bilite des Genie 3 et Genie 1 . Le Genie 3 est tres 
inspire du Modele 3, tout en s'en eloignaot sufflsam- 
ment pour qu'aucun proces ne puisse lui etre intente 
par Tandy (comme cela avait ete le cas pour le Genie 
1). Le Genie 3 peut en effet fonctionner avec NEWDOS80 
et un affichage de 16 llgnes de 61 caracteres, mais 
au3si sous CP/M avec un affichage de 24 lignes de 80 
caracteres; son processeur est un Z80 accedabt a 
61 K octets de memoire vive (extensibles selon le 
fabricant Jusqu'a 192 K octets de MEV); les deux mlni- 
disquettes integrees offrent chacune une capacite de 
325 K octets (double piste, double densite), elles 
sont completees par une interface parallele, une 
interface serie RS232, une horloge temps reel 3auve- 
gardee par batterle et une Interface cassette(au fomat 
Tandy bien sur). Le prix de ce systeme, qui comporte 
egalement un clavier detachable, n'est pas encore fixe 
mais devrait tourner aux environs de 20000 FF ttc. 
Le Genie 1 quant a lui se veut une bonne alternative 
au TRS couleur, mais 11 ne sera propose en France que 
lorsque le "petit" probleme de 1' interface avec une 
TV couleurs 3era resolu (ah, cette SECAM!). 



Adresses des societes raentionnees 



- BCM , 24 route de la Sapiniere, B 4960 Banneux, 
Belgique . 



- Field Engineering Consultants Ltd , P0B 2368, 
Woburn, MA 01 888, USA. 



- GES, 76 avenue Ledru-Rollln, 75012 Paris. 



- Graphie , Galerie 92, 92 rue Saint-Lazare, 
75009 Paris. 



- Hachette , 24 boulevard Saint-Michel, 75005 
Paris. 



- Micro-Expo , STBEX, 4 place Felix Eboue , 
75583 Paris Cedex 12. 



- Pentasonic , 5 rue Maurice Bourdet, 75016 
Paris. 



- SICOB , 6 place de Valois, 75001 Pari3. 



- Slvea , 31 boulevard des Batignolles, 75008 
Paris. 



- Tandy France , 211 boulevard Mac Donald, 75019 
Paris. 



- TRS-Soft, 17 bis avenue de la Mesange , 94100 
Saint-Maur . 
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coup d'oeil sur.... 



... le LNW 80 



Dans la lignee des "compatibles" modele 1, nous avons 
choisl de vous parler aujourd'hui de la carte LNW, 
devetloppee et commercialisee aux Etats-Unls par la 
societe LNW RESEARCH, et importee, a notre connais- 
sance, par au moins deux societes francalses 

(GRAPHIE et PENTASONIC). 

Cette carte dont l'originallte est d'etre en "kit", 
se presente sous la forme d'un lmposant circuit ira- 
prlme (40 x 26 cm environ) double-face a trou3 total- 
ises, destine a recevoir environ 130 circuits lnte- 
gres (disponibles separement). II a'agit done d'un 
kit dont la realisation n'est pas a la portee d'un 
debutant, d'autant que les documents fournis avec la 
carte se limltent aux schemas et a un manuel qui est 
plus une description technique de certains sous-en- 
sembles, qu'une notice de montage "pas-a-pas" (style 
Heathkit par exemple ) . Histolre de vous "faire la 
main", un certain nombre de modifications sont a 
effectuer sur le circuit impriroe, avant toute chose 
(3 pages difflcilement dechiffrablea) . 
L 1 emplacement de tous les composants est repere sur 
la carte par une serlgraphie de bonne qualite. 
Description fonctionnelle 



La carte LNW est composee des elements sulvants : 

- Alimentations stabillsees. Les tensions logiques 
--5v, + 12v, -12v et -5v sont creees sur la carte par 
une serie de regulateurs integres (munis de radla- 
teurs), a partir de tensions alternatives fournies 
par un tranformateur d'alimentatlon exterieur, com- 
portant deux enroulements 9V t A et 18V 2A (LNW qui 
vend aussi les ensembles tout raontes a prevu un 
ventilateur). Un condensateur exterieur de 15000 
microfarads (l6v) est necessaire. 

Toutes les tensions logiques sont llmltees en cou- 
rant, et" le +12 et le +5 sont protegees contre lea 
surtensions. Les tensions sont ramenees sur un hor- 
nier (J2) afin d'alimenter le chassis d'extenslon 
LNW dont nous ne parlerons pas id. 

- Le microprocesseur est un Z80A (Zilog version 
rapide ) . L'horloge generale est fournie par un 
03Cillateur a quartz de 16 MHz. 

- La memolre vlve est composee de 8 boitlers 41 16 
(RAM dynamlque, 200 ns), fournissant les 16 K octets 
de base (compatibilite TRS de base). 

- Le rafraichisseraent de ces memoires utilise le 
signal RFSH du Z80 (contralrement au TRS). Afin de 
respecter les temps d'acces des 2 RAM 2111 (memolre 
ecran) et des PROM BASIC, un cycle d'attente (WAIT) 
est ajoute lors de l'acces a ces memoires. 

- L'lnterpreteur BASIC en memolre morte (6 boitlers 
PROM 2716) est strictement le BASIC Microsoft assu- 
rant la totale compatibilite avec le niveau 2 du 
TRS-80 (350 F environ, pour les six memoires). 

- L' Interface cassette peut fonctionner a 500 bits/ 
seconde (compatible modele 1 ) ou a 1000 blts/seconde 



et presente un controle automat ique de gain en lec- 
ture permettant de s'affranchir des problemes de 
sensibillte de reglage de volume du cassettophone. 

- L'horloge temps reel fournit une interruption tou- 
tea les 25 millisecondes, tout comme le TRS. 

L'oscillateur a quartz produit un signal a 16 MHz 
qui, apres divisions, perraet de disposer d'une hor- 
loge de 1,77 MHz ou 4 MHz. Cette premiere valeur 
d'horloge assure une compatibilite totale avec les 
logiciels du modele 1 sur LNW (systemes d'explolta- 
tlon de disquette TRSDOS et NEWDOS, entrees/sorties 
cassette a 500 bauds, programmes utlllsant des temps 
calcules par boucles d'instructions) . 
A l'aide d'un switch interne, il est possible de 
forcer en permanence, l'horloge t MHz. Lorsque 
celle-cl est utillsee, la compatibilite evoquee plus 
haut n'est plus aasuree. Les temps de lecture/ecrl- 
ture disque, en partlculier, ne sont plus respectes 
et il est necessaire d'utiliser un systeme d'exploi- 
tation adequat qui supporte ces ameliorations 
(NEWDOS80 ou LDOS). Toutefois, le clavier LNW compor- 
te une touche speciale qui permet, quelle que soit 
la position du switch interne, de forcer l'horloge 
UC (Unite Centrale) a 1,77 MHz (F0RCEL0W). 
Sur une troisieme position du switch interne, l'hor- 
loge de 1 'unite centrale fonctionne normalement a 4 
MHz mais est commutee a 1,77 MHz pendant les entrees/ 
sorties disquette, ce qui assure la compatibilite 
avec les logiciels du modele 1, tout en procurant un 
gain important dans la Vitesse d 'execution. 

Mais pour pouvoir utiliser les disqunttes, 11 faut 
un chassis d'extenslon. Un connecteur to points en 
permet le raccordement par 1 ' intermedlaire d'un 
cable plat. Le brochage de ce connecteur est ldenti- 
que a celul du TRS et il est done possible d'y relier 
lndifferemment le chassis d' interface Tandy ou celul 
de LNW (qui comporte en standard 1' Interface serie 
V24/RS232). 

II est a noter que les synchronisations horlzontales 
et verticales de la video sont generees par un oscil- 
lateur separe ajustable, ce qui devrait permettre 
sans trop de problemes, l'utilisatlon de recepteurs 
TV europeens en guise de moniteur. 

La carte LNW accepte le clavier du modele 1 ou le 
clavier fourni en option par LNW et qui comporte 
quelques' touches aupplementalres (7t touches). Les 
caracteres minuscules existent en standard sur le 
LNW 80. 

Ce qui distingue aurtout le LNW80 du modele 1 est 
l'adjonctlon d'une memolre additionnelle (6 boitiers 
t1l6, soit 16K x 6 bits) permettant, en liaison avec 
la memolre d 'ecran standard (IK x 8 bits), d'augraen- 
ter les capacites d'affichage, tant pour les carac- 
teres alphanumeriques et graphiques, que pour le 
graphisme haute resolution et la couleur, inexistants 
sur modele 1. Nous allons maintenant examiner ces 
possibilites interessantes. 



Afflchage nolr et blanc 



- 16 llgnes de 61 caracteres alphanumeriques (majus- 
cules et minuscules) et semi-graphiques (mode 0). 
C'est le mode compatible TRS-80. La memolre addi- 
tionnelle evoquee plus haut n'est pas utillsee. 
La resolution en 3emi-graphique est de 128 x 13 
points (coordonnees des instructions SET, RESET et 
POINT du BASIC). Nous utillsons 1 'expression "aemi- 
graphlque" car en fait, l'ecran est dlvise en 16 x 
6i| emplacements distincts. Chaque emplacement, dans 
ce cas, est divise en 6 paves et les 64 possibilites 
des caracteres semi-graphiques correspondent aux 
possibilites de remplissage de ces 6 paves (visuali- 
sees par CHR$(129) a CHR$(19U). 
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- Graphique haute resolution de 480 x 192 points 
(mode 1). Utilise la memoire additionnelle unlque- 
ment. Dans ce mode, il est possible de generer par 
sous-programme, n'importe quel Jeu de caracteres. 
En partioulier, des caracteres plus petits que les 
caracteres standards, ce qui permet un affichage de 
24 lignes de 64 ou merae de 80 caracteres . . . Cfciel- 
ques exemples de sous-programmes sont donnes dans la 
notice LNW. Ce mode offre de grandes posslbilltes 
mals n'est toutefols pas evident a mettre en oeuvre, 
en partlculier depuis leg programmes existants du 
modele 1 (Scrlpsit, avec 24 lignes de 80 caracteres, 
c'est le reve, mais ce n'est pas immediat !). 
Pour les applications graphiques, c'est le mode qui 
offre la resolution maximale (92.160 points). 
Pour chacun de ces modes, 1' inversion video est 
possible. La sortie "video composite" disponlble sur 
le connecteur "HI/RES B/W VIDEO" eat compatible avec 
tout monlteur TV ayant une bande passante convenable. 
Affichage couleur 



- 128 x 192 points en 8 couleurs (mode 2). Utilise 
d'une part la memoire d'ecran standard pour roemori- 
ser le caractere seml-graphique a "colorier", d'au- 
tre part la memoire additionnelle pour contenir 
dans chaque pave du caractere semi-graphique, la 
couleur de 4 sous-paves (1 couleur parmi 8). 

On aboutit ainsi a 128 x 192 sous-paves de couleur. 
La memoire d'ecran doit etre pre-remplie de caracte- 
res semi-graphiques ou de caracteres graphiques dila- 
tes (CHR$(23)) pour obtenir un resultat correct sur 
un televiseur couleur. Les caracteres alphanumeri- 
ques normaux (non-dilates) donnent lieu a une mauvai- 
se visualisation. 

La sortie vers le televiseur couleur se fait selon 
le standard americain NTSC, soit en video composite, 
soit en VHF (1* emplacement du modulateur est prevu 
sur la carte). Une adaptation au standard SECAM 
impose au minimum de changer le circuit modulateur 
(MC1372) et la ROM de codage des couleurs (74S188) 
(il s'aglt de posslbilltes entrevues par un rapide 
coup d'oell sur les schemas qui n'engage pas la res- 
ponsabllite de l'auteur, non specialistes TV s'abs- 
tenlr I). 

- 384 x 192 points en 8 couleurs (mode 3). Chaque 
point correspond a un bit dans la memoire addition- 
nelle (73.728 points) et peut done etre allume (=1) 
ou etelnt (=0). 

La memoire d'ecran contient la couleur d'un pave 
compose de 3 x 12 de ces points. La resolution en 
points est done de 384 x 192 mais la resolution cou- 
leur n'est que de 128 x 16. La comblnaison des deux 
dolt donner de belles images ! 

La sortie couleur "haute resolution" se fait au 
standard "RVB" et pourralt peut-etre, moyennant 
quelques modifications, etre adaptee a la prise 
"Perltel" de nos televiseurs francais fabriques apres 
le 01/01/80. 

Pour memoire, aux USA un monlteur NTSC coute environ 
400 $, un monlteur RVB environ 1000 $. 



Chacun des modes que nous venons de decrlre est se- 
lectlonne par une Instruction OUT a l'adresse 254, 
par 1' octet suivant : 

7 6 5 4 3 2 10 



X 


X 


X 


X 


















* 


' 




























-*• 00 = 












01 = 












10 = 












11 = 












-> 


1 


= lit 


1 


nt 



1 = inversion video 
(modes et 1) 

mode 
mode 1 
mode 2 
mode 3 



additionnelle 
Les posslbilltes graphiques sont resumees cl-dessous 
Mode 



acces au pave. 
128 x 48 pour tout l'ecran 



Mode 1 



Mode 2 



■» acces au point . 

480 x 192 pour tout l'ecran 



■* — acces au 1/4 de pave (sous-pave) 
128 x 192 pour tout l'ecran 
1 couleur parmi 8 par sous-pav6 



Mode 3 



12 



acces au point 

384 x 192 pour tout l'ecran 

1 couleur parmi 8 pour une zone 

composee de 3 x 12 points 



rr 

I coul 



eur A 
couleur B 



, Henri Frere 



Abonnez-vous 



a 
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coup d'oeil sur 

...le Modele 16 



Ainsi que nous le signalions tres brievement dans 
notre dernier numero, Tandy a annonce aux Etats- 
Unis un nouveau materiel de haut de gamme, le 
Modele 16. II s'agit en fait d'un Modele 2 "gonfle" 
par l'ajout d'une carte processeur speciale. 

En effet, une carte d 'unite centrale est inseree 
dans l'un des emplacements disponibles du chassis 
du Modele 2, apportant ainsi non seulement un 
processeur 16 bits Motorola 68000, mats aussi 61 
kilo-octets, pour une capacite totale de 128 K 
octets (extensible jusqu'a 512K). 

Le processeur 68000 est generalement considere 
comme le plus puissant des processeur3 16 bits ac- 
tuels, surtout par son jeu d' instructions. Helas, 
ce processeur en fait ne dispose a l'heure actuelle 
que de peu de logiciels d'appllcations, meme si son 
logiciel de base e3t assez etendu: le fameux Sys- 
teme d 'Exploitation de Disquettes (SED) Unix multi- 
utilisateur multitache, compilateurs pour les 
langages C (langage d'ecriture de systemes), Cobol , 
Fortran, et bien sur Pascal-UCSD. 

Tandy annonce pour le Modele 16 un futur SED multi- 
taches, mais en l'attendant les utilisateurs en 
sont reduits a utiliser une version adaptee d'un 
SED du Modele 2, qui permet toutefois d'effectuer 
des compilations Cobol sur le 68000. Car le Z-80 (8 
bits) du Modele 2 reste tujours disponible, en fait 
a l'heure actuelle c'est le seul des 2 processeurs 
pour lequel un logiciel complet existe. Tandy peut 
done affirmer a juste titre que tous les programmes 



du modele 2 fonctionnent sans probleme avec le 
modele 16 ! 

Gageons toutefois que les societes de service ne 
manqueront pas pour developper rapidement du logi- 
ciel d 'application pour le nouveau-ne de Tandy: ce 
n'est qu'a ce moment-la que toute sa puissance 
pourra reelleraent etre exploitee. 

Mais voyons un peu ce qui se passe du cote des 
memoires de masse. L'unite de disquettes 20 cm du 
modele 2 est remplacee par une ou deux unites 
extra-plates de disquettes 20 cm. L' utilisation des 
deux faces de chaque disquette donne a chaque unite 
une capacite de 1.25 megaoctet; le modele 16 est 
done commercialise en deux versions. Toutes deux 
possedent 128 K octets de memoire vive; la premiere 
version, avec une seule unite de disquettes, coute 
aux Etets-Unis 5000$ (environ 31000 FF), et la 
version a deux unites 5800$ (environ 35000 FF) . 

Sont egalement disponibles des disques durs de 8.1 
megaoctets , et la connexion au reseau local ARCNET 
que Tandy a adopte 3uite a ses accords avec 
Datapoint (qui est distribue en France, comme le 
monde est petit, par Matra!). 

Et le3 possesseurs de modele 2? lis ne sont pas 
laisses a 1 'abandon, car ils peuvent faire trans- 
former leur systeme en modele 16. Bien sur, leur 
carrosserie n'aura pas la nouvelle couleur ivoire 
adoptee pour le grand dernier; bien sur, il3 garde- 
ront leur epaisse unite de disquette simple face; 
bien sur, ils ne pourront etendre la memoire MEV 
que jusqu'a 256 K octets. Mais apres tout, cela ne 
leur coutera que 1500$ aux Etats-Unis, soit environ 
9200 FF, tout en leur permettant d 'utiliser la plu- 
part des nouvt'oij: logiciels (quand lis seront 
disponibles! ). 



coup d'oeil sur... 

..les poquette s 

Exceptionr.elle, cette imprimante l'est en effet: 11 
s'agit d'une veritable mini-table tracante, capable 
de generer des graphiques en quatre couleurs! Voila 
qui est peu banal pour un poquette (qui necesslte 
d'ailleurs alors une assez grosse poche!), vous en 
conviendrez aisement. 

Cote BASIC, les nouveaux poquettes sont compatibles 
avec les anciens, ou plus exactement un programme 
qui fonctionnait sur le PC1 peut etre retape sur le 
PC2 en se contentant de modifications mineures: le 
nouveau BASIC comporte presque toutes les commandes 
et instructions de l'ancien, augmentees de nouvel- 
lea possibilites. 

Les prix? comme dit dans notre dernier numero, le 
PC2 tout seul sera commercialise aux Etats-Unis au 
prix de 280$ (environ 1700 FF). A comparer avec les 
prix actuellement pratiques en France pour le 1500: 
2300 FF ttc, 1 'imprimante est elle vendue dans les 
1800 FF ttc. Messieurs les importateurs et diffu- 
seurs de materiel Sharp, un petit effort, ou bien 
nous irons tous acheter nos PC2 chez Tandy! (Enfin, 
sauf si Tandy s'aligne sur ces prix...) 

Mais avec toutes ces nouveautes, que vont devenir 
les possesseurs de PCI et autres PC1211? On leur 
avait laisse entendre qu'll y auralt beaucoup de 
developpements et de nouveaux peripheriques, il 



dolvent a l'heure actuelle se sentir un petit peu 
abandonnes . (Pas dans nos colonnes en tout caa I ) 

En meme temps que le modele 16, Tandy annoncait un 
nouveau poquette, baptise PC2. (Le poquette pre- 
cedent, ne Sharp PC— 12 1 1 , va-t-il etre rebaptise 
PC1?). Les photos dont nous avions pu disposer 
montraient une machine plutot differente du Sharp 
1500, semblant indiquer que Tandy avait change de 
fournisseur. 

En fait, une lecture attentive des specifications 
et de l'une et de 1 'autre montre qu'il s'agit en 
fait de la meme machine, mais avec des differences 
de carrosserie assez importantes. En effet, alors 
que le clavier du 1500 est de forme trapezotdale, 
un peu a la maniere d'une machine a ecrire, le PC2 
reprend pratiquement la meme disposition de touches 
que le PC-1211: un clavier rigoureusement rectangu- 
laire. Par ailleurs, les affichages des deux raode- 
les sont implantes de facon assez differente, celui 
du PC2 etant nettement decale sur la droite. Tous 
deux sont en tout cas beaucoup plus gros que le 
1211, perdant ainsi les avantage3 lies a celui -ci: 
faible poids, faible volume, faible prix, etc. 

Ce qui nous avait mis la puce a 1'orellle, avant 
meme d'eplucher les caracteristiques techniques, 
e'etait en realite une photo tres revelatrice: 
Tandy a diffuse des photos du PC2 installe dans 
"son" imprimante, laquelle ressemble comme deux 
gouttes d'eau a celle du 1500. Et comme celle-ci 
est plutot exceptionnelle, il etait done logique de 
penaer qu'il s'agit du meme modele d' imprimante, et 
done d 'ordinateur . 
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EDTASM +, 
un meilleur assembleur 



EDTASM-PLUS de Microsoft 
Prix : 270 a 395 F 
Version cassette et disquette 
Model e 1 



L' Edlteur-Assembleur "cassette" le plus utilise sur 
le modele 1 est sans doute EDTASM de Tandy. Pour les 
utllisateurs de systemes a disquettes il exlste une 
version de ce programme fournle avec les differentes 
versions du NEWDOS. 

Depuis quelque temps deja, Microsoft commercialisait 
EDTASM-PLUS en version cassette et annoncait que ce 
programme avait ete ecrlt par l'auteur de la version 
originale. Cela se traduit par un avantage lndenla- 
ble pour ceux qui deslrent evoluer vers ce nouveau 
logiciel : tous les fichier3 sources, mais aussi les 
commandes et les pseudo-operations de la version 
irltlale demeurent Inchangees. 

Mais, le "plus" de EDTASM-PLUS se traduit en fait 
par des facultes supplementaires non ne.'-.ligeables 
comme des facilites d' edition nouvelles, parral les- 
quelles le deplacement de troupes de ll.rnes, les 
recherches et chanfiements globaux de certaines va- 
lours. 1 'extension automatique de toutes les llpnes. 
Cette derniere posslbilite s'avere particulierement 
pratique pour ajouter des eommentaires ;». un program- 
me apres sa mise au point. 

II y a par ailleurs une possibility d'assembler 
directement en memoire, de tester le programme, 
puis de retourner a l'editeur-assembleur. On evite 
alnsi une perte de temps considerable, car, pendant 
la mise au point, il n'est plus necessaire d'enre- 
gistrer sur support externe toutes les versions 
intermediaires des programmes source et objet, ni 
de recharger apres chaque test EDTASM, ainsi que la 
dernlere version du programme source. Cette maniere 
de proceder est deja agacante avec un systeme a 
disquettes, mais avec un systeme a cassettes le 
developpement de programmes assembleur d'une certal- 
ne importance devlent une tache presque lnsurmonta- 
ble. 

EDTASM-PLUS dispose d'un programme moniteur incor- 
pore, appele ZBUG, pour faciliter la mise au point. 
II exlste meme une posslbilite de retour dans 
EDTASM sans perte du programme apres un Reset 
(necessaire, pour "decolncer" dans le cas oil le 
programme test bloque la machine). Pour travailler 
sur un programme volumlneux, il est toutefois possi- 
ble d'eTfacer de la memoire ZBUG, et meme eventuel- 
lement 1 'assembleur , pour disposer de plus de place 
pour l'edition du programme source dans le buffer 
f'e texte. 

I.es ameliorations d ' EDTASM-PLUS ne s'arretent pas 
lei. II faut mentionner parmi ses avantapes les plus 
marquants. la posslbilite d'utiliser des macro-ins- 
tructions, des ordres d'assemblage conditionnels et 
des expressions devaluation d'adresses hepucoup 
plus complexes. 



Le tout est accompagne d'un petit manuel et d'une 
carte de reference blen presenters et faciles a 
utlliser (en anglais malheureusement ) . 

La version disquette de cet assembleur, sortie 
recemment, e3t encore plus complete. Le raanlement 
des commandes de lecture, d'ecriture et d ' assemblage 
sur disquette est plus commode que celul du EDTASM 
modifie de NEWDOS, quolque un peu molns sur. car 
EDTASM-PLUS ne demande pas la confirmation de cha- 
que ordre donne. 

La version disquette possede les pseudo-instructions 
supplementaires PAGE et TITLE qui permettent d ' ame- 
liorer la presentation des listes des programmes 
source, et une pseudo-instruction INCLUDE qui permet 
d'inclure au moment de 1 'assemblage et a partlr du 
disque, des macro— instructions, des routines diver- 
ses ou des portions d'un programme source trop 
important pour tenir entierement en memoire. Ceci 
permet egalement de se constituer une bonne biblio- 
theque de marcc— instructions que l'on utlllsera sys- 
tematiquement pour ecrire ses programmes. 



Cette version est livree sur une disquette TRS-DOS 
avec un petit fichier contenant une serle de macro- 
instructions d 'entrees-sorties disque (OPEN, CLOSE, 
READ. WRITE, etc ...), un programme de patch qui 
permet 1' adaptation du driver d'imprimante d' EDTASM 
a 3. 'imprimante utilisee ainsi qu'au format du papier 
(nombre de caracteres par ligne, taille des pages, 
nombre de lipnes par page, caractere d'avancement de 
li/;ne). 



J'ai transfere EDTASM-PLUS sur une disquette 
NEWDOSHO-2 et Je n'al constate a ce Jour aucune 
anomalie. 

Kaut-il cependant dire que ce procramme est parfait ? 
Non : 11 est tout de meme un peu trop facile de 
perdre le buffer rt e texte source apres un ordre 
(emis par erreur) de lecture d'un fichier. 



Un autre petit reitret. la version disquette »st 
livree avec le manuel cassette et un deuxieme petit 
manuel contenant la description des commandes dis- 
quette supplementaires. De plua la carte de referen- 
ce ne contient que les informations se rapportant a 
la version cassette. II aurait mieux valu un manuel 
refondu, et surtout une carte de reference complete. 



Mais malgre ces imperfections, qui sont tout de 
meme raineures. Je n'echangerais par mon EDTASM-PLUS 
contre deux EDTASM de l'ancienne version ! 



Wolfgang Lauter 



20 — TRACE N° 2 — Avril R9, 



essaL 



Tentez l'aventure 



Ce Jeu fameux ecrit a l'origlne en FORTRAN pour 
l'ordlnateur PDP-10 de DEC peut malntenant tourner 
Bur un TRS-80 equipe de 32K de memoire et d'une 
disquette. laquelle comporte plus de 64K de dialo- 
gues et de descriptions ... De quol s'amuser pendant 
de lorr-ues heures. mals en anglais ! 

La disquette "adventure" inaugure un nouveau type de 
Jeu ou le participant tient un role et vlt des aven- 
tures dont le deroulement est fonctlon de ses actes. 
Aux Etats-Unls, on achete une "disquette" d'aventu- 
res come nous acheterlons un "livre" d'aventures. 
Les auteurs ne sont plus Stevenson ou Conan Doyle 
mals Scott Adams et Microsoft ... C'est le progres ! 

Stephane, notre Jeune essayeur de lit ana (qui a per- 

fectionne son anglais avec ce Jeu ) a condescendu 

a nous livrer quelques secrets. 

- Demonlaque ! C'est tout slmplement demonlaque ! 
Dans ce labyrinthe de 130 pieces, 11 vous arrive les 
choses les plus horribles. Vous etes attaques par 
des anlmaux feroces, des dragons, des olseaux, des 
pirates, etc ... durant votre recherche des 15 tre- 
sors repartls dans les endroits les plus divers de 
cet immense monde souterraln. 

Pour nous aider, 11 existe 10 objets usuels parse- 
mes de cl de la, mais attention : vous ne pouvez en 
porter plus de huit a la fois (helas !)■ ce qui ne 
faclllte pas la tache. 

Plusieurs passages secrets sort caches aux detours 
'les chemlns et lis vous condulsent tout aussi blen 
■tans la home que dans la mauvaise direction. 
MalS tout de suite : les PETITS TRUCl. ET ASTUCES. 

I.es tresors 



* Une grosse peplte (nugget) est cachee dans une 
"piece basse" (low room). Prendre la direction sud 
lorsque vous etes au "hall des brumes" (hall of 
mists) . 

* Des oeufs d'or (golden eggs) reposent dans la 
chambre geante (giant room). Pour y arriver, 11 
faut deja parvenir a "west end two pit". La, une 
plante toute rabougrie demande de l'eau. Si vous 
pouvez lui en donner (deux fois !) elle grandit et 
monte vers un trou, ce qui vous permet de grlmper... 
pour arriver dans "narrow corridor". Prenez la di- 
rection ouest et vous y etes !! 

* Un troisieme tresor (aprea, c'est fini ...) : la 
pyramide. C'est un des plus dirficile a atteindre. 
En effet, pour y acceder, vous devez aller a "plover 
room" mals avant, vous devez depo3er vos ustensiles 
pour vous faufller dans un "boyau" etrolt. La, 11 y 
a une emeraude (encore un tresor), mais a cause du 
noir (vous avez du laisser votre lampe). vous ne 
pouvez aller plus loin. Alors vous sortez, prenez 

vos objets et f.aloppez a "Y2" (mot magique : PLUfiH) 
oil vous prononcez le mot : PLOVER qui vous transpor- 
te par miracle dars "plover room" - cette fois avec 
votre equipement !! Prenez la direction nord-est et 



vous vous trouve?, dans la piece rte la pyramide. Vol- 
lf> ! Pour revcir, pas de problemes ... 
Nous vous svnns dlt qu'll y avait IS tresors. f,a 
ho'tte nous submerge ... mals n'en avons trouve que 
1« !! En voici quelques-uns : "Jewellery", "rue", 
"silver", "coins", "chest", "diamonds", "vase", 
"trident", "golden chain", "rare spices" constituent 
le reste des richesses a trouver - et a retourrer 
dans le building. 




Phrases maglques, passages secrets, objects 
enlgmatiques : 



"XYZZY" ecrit dans la "debris roon" sert de va-et- 
vient entre cette piece et le building. "PLUGH" a la 
meme fonctlon mala avec la piece "Y2" (sert aussi a 
aller de la "plover room" a "Y2", mals unlquement 
dans ce sens). "LWPI" vous transporte de "ante room" 
a "software den" et vice-versa. 

Pour tuer le serpent (snake) ? Facile !! Apportez le 
petit olseau et liberez-le devant le monstre. 
Pour vous debarrasser du dragon . . . tuez-le tout 
slmplement - et a mains nues I 

A propos du vase Minn;, n'essayez pas de le poser. 11 
se casseralt avec un "crash" dellcat ! Donnez-le 
pltitot au pirate qui vous attend un peu plus loin et 
qui exlre un do" pour vous laisser la passace. Donnez 
a manner (food) a l'ours feroce, 11 devlendra ce"tll 
et vous suivra partout. Vous pourrez ainsi suhtlll- 
ser la chaine qui le retenait prlsopnler. De plus 11 
terroriser? le pirate qui cette foin. vous lnissera 
passer sans problerae ! 

Cette vlellle porte toute rouillee refuse de vous 
livrer passage ? Une bonne dose d'hulle fera 1 'affai- 
re ! 

Heureusement , 11 est possible de sauver le Jeu a un 
Instant donne (comraande SAVE), pour le reprendre le 
lendemaln. II faut blen se reposer un peu ! 



.Stephane 
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Librairie 



MICROSOFT BASIC DECODED & OTHERS MYSTERIES 



Par James Farvour 

Editeur : IJG Inc. 

Prix : 25 $ (USA), 260 F (France> 

310 pages - Broche 



Ce llvre est le deuxlerae tome d'une aerie qui appor- 
te des renseignementa precieux a tout possesseur d'un 
TRS-80. En 1 'occurrence , les informations donnees 
par ce llvre seront partlcullerement appreciees par 
tous ceux qui desirent programmer en assembleur sans 
refaire le monde, c'est a dire dans notre cas, sans 
reecrire entierement les 30us-programmes qui exis- 
tent dans la memoire morte (ROM) du BASIC et qui ne 
demandent pourtant qu'a etre utilisees. 



Apres 1 'introduction et quelques explications sur la 
structure du BASIC niveau 2, on trouve la descrip- 
tion de nombreuses routines d 'entree-sortie, de 
calcul , de conversions et de manipulation de chalnes 
de caracteres, avec la maniere de les mettre en ser- 
vice. 



Le chapitre 3 donne dea informations aur le format 
et la gestion des donnees sur cassettes et disquet- 
tes, tandis que le chapitre 1 apporte d'autres 
lumieres sur la structure du BASIC. Notamment sur 
les differentes tables utilisees par lui dans la 
zone de communication de la memoire vlve. C'est la 
connaissance de cette zone qui permet la creation 
d'extensions BASIC ainsi que la realisation de divers 
drivers (programmes "pilotes") d' entree-sortie. 



Le3 chapltres 5 et 6 donnent des exemples d' applica- 
tion de ces techniques. Arrive ensuite, dans le 
chapitre sept, une breve explication des differences 
lntroduites par les nouvelles memolres mortes (cel- 
les qui afflchent "R/S L2 BASIC" a la mise sous 
tension) . 

Mais la partie la plus importante est en fait le 
chapitre 8. Celui-ci couvre a lui seul les 3/lJ du 
livre. II contlent la liste commentee de la ROM 
desassemblee. 

Pour des raisons de copyright cette partie du manuel 
n'est pas complete. 

On y trouve les adresses de chaque instruction, 
1 ' instruction en HEXA, son code mnemonique, une 
colonne vide ou devra'ient se trouver les arguments 
des instructions (la voila, la partie manquante !), 
puis les commentaires. Au dos de chaque page, figu- 
rent des commentaires plus developpes, lorsque cela 
s'avere necessaire. 



Pour disposer d'un manuel tout a fait complet, il 
vous faut un desassembleur, une imprimante, des 
ciseaux, un baton de colle et pas mal de courage, 
car 11 faut disassembler et lmprimer la ROM, puis 
decouper et coller les parties manquantes dans les 
2kl pages. 



Cela peut paraltre fastidieux, mais alors que tout 
le monde ne peut pas monter un ordinateur individuel 
a partir d'un kit, tout le monde peut fabrlquer ce 
"bouquin en kit". Pour mieux comprendre comment 
marche le Basic ou pour programmer en assembleur, ce 
travail pourra economiser des heures et des heures 
de recherche et de programmation redondante. 



Wolfgang Lauter 
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APPLICATIONS SOFTWARE SOURCEBOOK 



Radio Shack 

No catalogue : 26—2 1 1 ^ 
Prix USA : 1.95 $ 
26*4 pages - Broche 



Ce llvre possede un caractere un peu particulier, 
pulsqu'il s'agit de la compilation d'une liste de 
1653 programmes que l'on peut trouver aux Etats-Unls 
sur les TRS modeles 1, 2, 3, couleur et poquette ...! 
Cette liste est forcement incomplete a un instant 
donne, mais est remise a jour perlodiquement : nous 
avons actuellement entre les mains le volume 2 de 
cette serle, qui, par rapport au volume 1, ne 
contient pas molns de 50 % de programmes supplemen- 
taires ...Si le taux de croissance continue a ce 
rythme, le prochain volume risque d'etre fort lourd ! 
Cet ouvrage de 264 pages, comporte : 31 pages 
d' index, dans lesquelles les programmes sont classes 
par application, la liste alphanumerique des program- 
mes (par application) comportant 184 pages, et un 
second index de 46 pages avec cla3sement par auteurs 
ou editeurs. 



Chaque page de la liste decrit 9 programmes, avec 
pour chacun d'eux les caracteristiques sulvantes : 



. nom du programme 

. materiel employe : modele, configuration memoire 

. description en une trentaine de mots 

. adresse de l'auteur ou de l'editeur 

. support (cassette, disquette, listing ...) 

. prix 



Les applications les plus importantes sont couvei — 
tes : gestion, education, jeux, utilisations domes- 
tiques, industries et professions specif iques, mathe- 
matiques. 

Sculignons que ces descriptions de programmes sont 
denuees de tout argument publicitaire ou commercial, 
pas plus que de propos critiques sur la valeur, les 
avantages et les lnconvenlents des dits programmes. 
II y a d'autres ouvrages pour cela ! Malgre son 
caractere lmpersonnel, ce livre 3emble nous dire : 
"voila ce qui existe et voici les adresses ou le 
trouver. Maintenant, debrouille toi !". II fallait 
le faire et Tandy doit etre felieite pour cette ini- 
tiative. 



Si vous desirez voir vos programmes figurer dans ce 
veritable "annuaire" des loglclels TRS, vous pouvez 
utlliser l'un des formulaires fournis avec le 
"sourcebook" et il vous en coutera 10 $ par program- 
me, pour une periode de parutlon d'un an. 



ENCYCLOPEDIA FOR THE TRS-E 



Edite 


par 


Wayne Green 


Inc. 
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volume 
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95 
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( France ) 
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(200) 



, Alain Pinaud 



Je n'ai vu que les deux premiers ouvrages de cette 
collection, et pour parler franchement, lis ne m'ln- 
citent pas a acheter les suivants. 



Tout ce qui peut faire l'attrait d'une encyclopedic 
- j'entends "de ce que l'on a coutume d'appeler une 
veritable encyclopedic" - ne se retrouve malheureu- 
sement pas dans cette serle de volumes, a commencer 
par la taille. Sur la publicite (il faut toujours se 
mefier des publicltes ...), ce qui pourrait ressem- 
bler a un gros livre (le volume 1 de la serie), 
apparalt a cote d'une petite cassette (oh qu'elle 
est petite !). En admettant que l'echelle solt 
respectee, cette cassette-la ne doit fonctionner que 
dans un magnetophone miniature ... Enreallte, le 
volume en question a une taille tout-a-fait normale, 
de 22 x 15 cm et possede 291 pages (274 pour le 
second). On peut se le procurer sous l'une des deux 
formes : couverture souple (100 FF) ou couverture 
rigide (200 FF). Ce dernier prix d'allleurs, donne 
a la collection celui d'une veritable encyclopedic 



Venons-en au contenu. A premiere vue, on croirait a 
une compilation d' articles de l'excellente revue 
"80 Microcomputing" publiee egalement par Wayne 
Green, classes selon un certain nombre de themes : 
"business", education, jeux, graphiques, materiel, 
applications domestiques, enseignement , utilitaire, 
etc ... chaque article etant signe d'un auteur. Le 
volume 2 reprend la meme philosophie, et il en est 
probablement de meme pour lea suivants. Tout cela 
est fort bien, mais n'est pas tres nouveau : avec 
pas mal de publicite entre les articles, chaque 
volume feralt un beau "80 Microcomputing", mais pour 
un prix nettement inferieur. Que penseriez-vous de 
la demarche inverse : des articles inltialement pre- 
vus pour "80 Microcomputing" qui, pour une raison 
quelconque, sont publies sous forme d' ouvrages ? 
Bon. Admettons-le . Mais dans ce cas, ne devrait-il 
pas s'aglr d'une selection des raellleurs articles, 
ainsi groupes pour donner davantage de poids a cette 
encyclopedie ? Non. Cela ne peut Stre, a cause d'un 
petit mot dans la phrase precedente : il ne s'agit 
pas tres exactement- helas - des meilleurs articles.. 



Cette encyclopedie-la ne vous donnera pas le POKE 
necessaire pour corriger tel ou tel probleme, pas 
plus qu'elle ne vous apprendra a savolr comment 
fonctlonne votre TRS-80. Vous saurez par contre, lui 
raecorder une teletype (?!), lui faire decoder du 
Morse, dessiner Snoopy, et Jouer au Keno ... a moins 
que vous ne deslriez aborder une application 
"business" plus serieuse : la gestion d'un fichier 
d' adresses (et un de plus !). 

Apres tout, Wayne Green nous a prevenu dans 1' intro- 
duction : il ne s'agit pas d'une encyclopedie comme 
les autres ! En fait, il y a une explication : 
j'avals mal traduit. II ne s'agit pas d'une encyclo- 
pedie DU TRS, mais POUR le TRS ... 



Jean-Pierre du Tillet 
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SI VOUS COMMENTEZ VOS DATA . . . 

N'employez pas le " '" habituel : cela ne marche pas sur les modeles 1 et 3- En 
examinant le code genere dan3 le "buffer" BASIC, pour le petit programme sulvant : 

10 DATA 1,2 ' commentaire 

20 PRINT : REM commentaire 

30 PRINT ' commentaire 

on constate que pour la ligne 10, le code correspondant a " '" est 27H, c'est-a-dire 
le code de 1' apostrophe. Pour la ligne 20, ": REM" donne les codes 3AH et 93H (code 
du ":" et code compacte de 1' instruction REM) .Pour la ligne 30, "'" genere les 
trois codes : 3AH, 93H et OP'BH. Le dernier de ces codes signifie que c'est 1' apos- 
trophe qui devra etre affichee et non pas " : REM" . 
Pour commenter une ligne DATA, il faudra ecrire : 

10 DATA 1 , 2 :REM commentaire 

ou bien : 

10 DATA 1,2 :' commentaire. 
Souvenez-vous toutefois que si "'" est plus rapide a ecrire que " : REM" , il occupe 
un octet de plus en memoire ! 



PROTECTION MEMOIRE SUR MODELE 3- 



Si vous comptez placer un programme en fond de memoire sur raodele 3, et proteger 
celui-ci par un "MEMORY SIZE", sachez que l'appel du BASIC sous TRSD0S "ecrase" 
les 48 derniers octets de la memoire. 
Tenez-en corapte dans votre routine en l'implantant 48 octets plus loin ... 



CLEAR ANNULE les definitions de types de variables 



Bien que cela soit signale dans le manuel du BASIC, il nous semble bon d'insister 
sur ce point qui peut parfois amener quelques surprises si l'on n*y prend pas garde, 
et qui, a premiere vue, n'est pas tres logique. Pensez done tou jours, dans vos pro- 
grammes, a placer le CLEAR avant le DEFINT ( ou DEFDBL ou DEFSTR ) . 



UN RND PAS SI ALEATOIRE QUE CELA . . . 

Durant la mise au point de programmes utilisant la fonction RND de generation de 
nombres aleatoires, il peut etre interessant de reproduire tou jours les raemes se- 
quences de nombres. Cela peut etre realise sur modeles 1 et 3. en forcant une valeur 
donnee (1 a 255) aux adresses memoire 40AAH, 40ABH et 40ACH (16554 a 16556). 
Le programme suivant, par exemple : 
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10 FOR N- 16554 TO 16556 : POKE N, 1 : NEXT 
20 PRINT RNDOOO) ; 
30 GOTO 20 

delivre toujours les memes valeurs : 
'48 76 26 4 5 77 71 71 28 22 etc ... 



VOUS AVEZ BIEN DIT : ERREUR DE SYNTAXE ?? 

En BASIC disque, on peut se demander pourquoi la ligne suivante indique systemati- 
quement une erreur de syntaxe : 

10 FOR N=&H4000 TO &H4010 : PRINT N : NEXT 

Avez-vous trouve ? En realite, la syntaxe de cette ligne est tout-a-falt correcte ! 
La seule chose que le BASIC n'apprecie pas, c'est de trouver un espace apres une 
valeur hexadecimale. On trouve ce defaut avec TRSDOS, LDOS et tous les systemes qui 
en sont inspires. Le TRSDOS du modele 3 n'echappe pas a la regie. Par contre, 

NEWDOS80 dont toutes les extensions BASIC disque ont ete re-ecrites, n'offre pas 

cette curiosite. 



EriREUR DANS LE PROGRAMME RSM-2D 



Vous connaissez probablement le programme RSM de Small System Software. C'est un 
moniteur en langage machine tres pratique et tres simple d'emploi. II presente pour- 
tant une anomalie : l'ordre lecture des cassettes "system" (ordre R0) a parfois du 
mal a s'executer. Cela est du a une mauvaise valeur de constante dans la routine de 
lecture cassette. Voiei la correction : 

A l'adresse EE84 (version 48K), remplacez 85 par 76. Pour les versions 16 et 32K, 

les adresses sont respectivement : 6E84 et AE84. 

Dans le cas ou ces adresses ne correspondraient pas, cherchez la sequence : 

DE FF 06 85 10 FE ... et remplacez 85 par 76. 



POKE OU DEFUSR ? 



Vous desirez ecrire un programme sur modele 1 ou 3, qui soit suffisamment generali- 
se pour pouvoir tourner en version cassette (BASIC niveau 2) ou disquette (BASIC 
disque). Comment savoir par programme a quelle version on a affaire ? 
II suffit de tester 1' octet situe a l'adresse 16396 : s'il porte la valeur 201, on 
est en niveau 2, pour toute autre valeur, on est en BASIC disque. Cette astuce peut 
etre utilisee par exemple, pour definir le point d' entree d'une routine appelee par 
USR (POKE en niveau 2, DEFUSR en BASIC disque) : 

IF PEEK (16396) =201 THEN POKE 16526.X1 : POKE 16527.X2 ELSE DEFUSR = AD 

On trouve un autre moyen, utilise dans le programme de controle de checksum decrit 
dans ce numero, et qui consiste a tester l'adresse debut du buffer BASIC, qui est 
toujours a un endroit fixe en niveau 2 (enfin ... en principe !). 



TRACE N° 2 — Avril 82 — 25 



programmes. 



Cote 
court 




Cette rubrique contient des programmes ecrits en BASIC, mais dont 1 'originalite est 
que la taille ne depasse pas TROIS lignes au maximum, chacun d'eux effectuant une 
fonction bien precise. Creusez-vous les meninges et soumettez-nous les votres ! 

- ROUTAGES IMPRIMANTE / ECRAN : 1 LIGNE 

10 FOR AD= 16414 TO 16420 : POKE AD+8, PEEK( AD) : NEXT 

11 vous arrive probablement de lancer un programme contenant les ordres impriman- 
te : LLIST ou LPRINT. Si votre imprimante n'est pas raccordee, cela peut durer fort 
longtemps . . . 

Lancez ce petit programme et tout ce qui s'adresse habituellement a l f imprimante 
sera affiche sur l'ecran. Attention toutefois : certains programmes gerent eux-memes 
leurs impressions et ne passent pas par "1' entree principale" du driver imprimante... 

Pour diriger l'ecran sur 1 'imprimante , c'est aussi simple. II suffit de lancer : 

10 FOR AD= 16422 TO 16428 : POKE AD-8, PEEK( AD) : NEXT 

Par contre, revenir a l'etat initial n'est pas possible si l'on a pas pris soin de 
sauver les anciens contenus des adresses "pokees". 

Une variante consiste a "croiser" l'ecran et 1' imprimante : 

10 FOR AD=16422 TO 16428 : A=PEEK(AD-8) : POKE AD-8, PEEK(AD) : POKE AD, A : NEXT 

Cette fois-ci, le retour a l'etat initial est possible : il suffit de reiancer le 
programme une seconde fois ! 



- TRIANGLES RECTANGLES : 1 LIGNE 



10 X=RND(127) : Y=RND(47) : SET (X OR Y,Y) : GOTO 10 

Les nombres nous reservent tou jours quelques surprises ! Ainsi, qui pourrait penser 
que ce programme dont les donnees semblent parfaitement aleatoires, dessine un joli 
motif compose de triangles rectangles de differentes tailles ? 

11 suffit d'attendre un Instant et vous les verrez apparaitre ... 
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utilitaire. 




supprimer les eri 
de nos programmes 



II est bien rare, en recoplant la liste d'un pro- 
gramme publie dans une revue, (TRACE comme les 
autres . . . mala pour peu de temps I ) , de ne pas 
introdulre une ou deux erreurs dlfriclles a depister 
par la suite et risquant de compromettre 1 'execution 
du programme lnitlalement prevue : la lettre "0" est 
remplacee par le ohlffre "0" par example, ou une 
lettre est frappee en utilisant la touche SHIFT, 
pour ne citer que les plus courantes. Parfois, cer- 
talnes erreurs sont tenement vicleuses que l'on 
peut passer dlx fols dessus sans pour autant les 
deteoter. 

Eh bien a partir d 'aujourd'hui , ce genre de probieme 
ne ae rencontrera plus ! C'est une bonne nouvelle, 
non ? 

Dorenavant, tous les programmes BASIC que nous vous 
proposerons dans cette revue, seront pourvus d'un 
controle de "checksum" situe a la fin de chaque 
llgne, sous la forme d'un commentaire. Ce checksum 
est genere par un programme special : GENCS, dont 11 
ne sera pas question ici. 

Qu'est-ce qu'urt "checksum" ? La traduction de 1 'an- 
glais donne : somme de controle. II s'agit d'un 
procede largement utilise en informatlque, pour 
controler l'integrlte d'un bloc d' Informations. II 
existe plusieurs methodes de controle et celle que 
nous avons choisi est une des plus simples : en 
addltlonnant tous les octets d'un bloc d'informa- 
tlons modulo 256 (c'est-a-dire qu'apres 255, on 
repasse a zero) et en y ajoutant 1' octet de checksum, 
on dolt trouver la valeur zero. Si tel n'est pas le 
cas, c'est qu'une erreur a ete lntroduite quelque 
part. 

Exemple : le checksum des quatre lettres ABCD est 
•F6'. Pourquoi ? 

Le code ASCII (hexa) de ces quatre lettres est 11, 
42, 13 et It. En additionnant ces quatre valeurs 
(en hexa), on obtient ' 10A' . Modulo 256, il reste 
'0A'. En ajoutant le checksum 'F6', cela fait MOO', 
c'est-a-dire '00' si l'on ne conserve que 1' octet 
de poids faibles. 

Pour tous les programmes BASIC publles, une valeur 
de checksum sera donnee ligne par llgne. II vous 
suffira done d 1 introdulre chaque ligne de programme 
telle qu'elle figure dans le listing, y comprls le 
checksum qui y est mentionne. L' execution du pro- 
gramme utilitaire donne plus loin, se chargera de 
lister les llgnes sur lesquelle3 vous avez commis 
des erreurs. 

Pour faciliter les choses, les ESPACES et les 
COMMENTAIRES ne partlcipent pas au calcul du check- 
sum, ce qui n'est pas le cas des numeros de lignes, 
qui ne dolvent pas etre modifies . En consequence, 
il n'est pas conseille de renumeroter le programme 
AVANT sa verification. 

Les lignes sulvantea sont ldentiquea du point de vue 
du checksum : 



10 CLS .-PRINTA' ZONE COMMENTAIRE U5 

10 CLS : PRINT A : REM ZONE COMMENTAIRE 45 

10 CLS : PRINT A ' 45 

et possedent toutes trois un checksum de 45. Tout 
changement dans la llgne sera detect* : 



20 CLS : PRINT A 
10 CLS : PRIMT A 
10 CLS PRINT A 



donneralt un checksum de 3B 

donneralt un checksum de 6B 

donneralt un checksum de 7F 



Les commentaires peuvent etre introduits sous lea 
deux formes " : REM" ou "'", toutefols, il est neces- 
saire d'utillser la premiere forme en ce qui concerne 
les Instructions DATA (voir a ce sujet : Trues a 
brae dans ce numero). 



Programme de verification de checksum : VERCS 



Le programme VERCS ecrit a l'orlglne en langage 
machine (pour des raisons de performances), est donne 
sous la forme d ' instructions DATA contenues dans un 
programme BASIC. Neanmolns, un listage source eat 
donne pour ceux qui possedent l'assembleur EDTASM. 
La presente version qui se charge en fond de memoire, 
est prevue pour une configuration de 48K et tourne 
sur les TRS-80 modeles 1 et 3- Pour les versions 16 
ou 32K, quelques modifications seront a prevolr. 
De plus, avant de charger le programme BASIC a 
contrSler, 11 est necessalre de proteger VERCS a 
l'aide d'un 'MEMORY SIZE' adequat. 



Configuration memoire 


Reponse a Memory size 


16K 

32K 
48K 


32164 . 

48848 

65232 



Marche a suivre 



Au niveau BASIC, repondre au 'Memory size' selon 
l'une des valeurs donneea dans le tableau ci-dessua 
et correapondant a votre configuration memoire. 

Entrez le programme BASIC en Ignorant les lignea 
reperees par un '*', sauf si votre version est en 
48K. 

Le cas echeant, completez le programme par le 
groupe de 11 ligne3 correapondant a votre version 
(16 ou 32K). 

Sauvez le programme avant de le lancer . . . 

Faire RUN 
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SI tout se passe blen, frappez : PRINT USR(O) 
Le programme que vous venez d'entrer se controle 
alors lui-meme ( , , , ! ) et le message READY dolt 
apparaltre. 

Blen entendu, si une erreur 3 'est lntrodulte a ce 
niveau-la, 11 est difficile de prevoir la suite des 
evenements ... Suivez la methode habltuelle de raise 
au point en commencant par comparer soigneusement 
votre programme avec le listing donne. 

En admettant que ca marche (ca doit marcher !), 
essayez d'ajouter une llgne : 

5 CLS 

et frappez PRINT USR(O) 



Le programme doit afficher : 

- LIGNE : 00005, CHECKSUM TROUVE : 77 

Rerrappez alors la ligne 5 en y ajoutant cette 
valeur : 

5 CLS ' 77 

et frappez de nouveau PRINT USR(O) 

Si seul le message READY apparalt, votre programme 
a surement ete recopie correctement . Felicitations ! 



Alain Pinaud 



* 
* 



F6 

EC 

E2 

D8 

CE 

selon confis memoire F3 

IF CM=32 THEN AD=-16688 ELSE I 

"ERREUR CONFIG MEMOIRE" :ST0 



A6 



selon la 
di s^uette) 



10 ' 

20 ' proSramme de verification de checksum d'un 

30 ' programme BASIC charse en memoire 

40 ' VERCS - Copyright (C) TRACE 1982 

50 ' 

60 CM=£8 ' 16? 32 ou 48 

70 IF CM=48 THEN AD=-304 ELSE 

F CM=16 THEN AD=32464 ELSE PRINT 

P:REM2D 

80 ' B0 

90 ' Chardement de la routine 

100 ' 9C 

110 FOR N=AD TO AD+252:REMC1 

120 READ A : POKE N/A:REM16 

130 NEXT:REMF7 

140 ' 74 

150 ' Initial isation VERCS 

160 ' version (cassette ou 

17D ' 56 

180 IF AD<0 THEN K=65536+AD ELSE K=AD:REM79 

190 K2 = INT(K/256) : K 1=K- ( K2*256) :REM31 

200 IF PEEK (16549) > 67 THEN DEFUSR=AD ELSE 

POKE 16527/K2:REMCF 

210 CLS:REMAA 

220 PRINT "POUR 

2 

230 ' 1A 

240 ' Routine 

250 ' 06 

1000 DATA 

1010 DATA 

1020 DATA 

1030 DATA 

1040 DATA 

1050 DATA 

1060 DATA 

1070 DATA 

1080 DATA 

1090 DATA 

1100 DATA 



6A 
60 



POKE 16526;K1 



EXECUTER VERCS/ FRAPPER : PRINT USR (0) " :REM8 



en code machine 



10 



221 ; 42 7 164 764 7 14 70 7 22 17 229 72257221 :REM0C 

1267 7 22 1 7 1827 1» 2027 25 7 267 221 7 126 :REM3C 

2 7 221 7 1347 37 129»79; 17/4 707 221 :REMEE 

25 7 221 7 126 70 7 183 7 407 3 1?254 732 7 40 :REM55 

23 7 254 7 147 7 32 7 14 7 121 7 214»58 7 79 7 221 :REMD5 

35 7 221 7 126707 1837 327 248/247 9/221 :REM35 

126/0/129/79/221/35/24/219/221/126 :REMC2 

254 / 81/ 205/ 106 / 255_/ 7/7/7/7/71 :REMA8 

22 1 / 126 / 255 / 205 / 106 / 255 / 176 / 129 / 22 1 / 35 : REME5 

40 / 168 / 122 / 237 / 68 / 7 1 / 205 / 114/ 255 / 50 : REM6E 

202/255/120/15/15/15/15/205/114/255 :REM78 
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* 
* 



* 



1110 DATA 507201;255;35?35794»35786733j175 :R 

1120 DATA 255 > 205; 123 7 255 7 221 7 229 ?33 7 166 ? 255 7 

1130 DATA 2547l7407l57229720575l707225735 :RE 

1140 DATA 587l287567203771;32724972472367221 

1150 DATA 225? 195? 2 12? 254? 214? 48? 254? 10? 248? 2 

1160 DATA 772017230715719871447397206764739 : 

1170 DATA 201 ; 1 7 240 > 2 16 7 205; 150 7 255? 1 7 24 7 252 

1180 DATA 205; 1507 255 ? 17 156 7255? 205 7 150? 255 7 1 

1190 DATA 246 > 255 7 205 7 150 7 255 7 1 7 255 ; 255 ? 62 ? 47 

1200 DATA 2297213722576079?56725272377667235 

1210 DATA 225?119735720l74577677377l778?69 :R 

1220 DATA 32758»3270»0707O70732744 :REM30 

1230 DATA 32767772?69767?75?83785777732 :REME 

1240 DATA 84782779785786769?32?5873270 :REM19 

1250 DATA 07l37l:REM75 



EME8 

126 5REMB9 

MID 

:REM6A 

14 :REMCE 

REM86 

:REM6A 

:REM20 

:REM05 
:REM27 
EM79 



Adaptat ion 16K 



60 CM=16 
1070 DATA 



1080 
1090 
1100 
1110 
1120 
1150 
1170 
1180 
1190 



DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 



' 16; 
2547817205? 
221;126?255 
407l68?122? 
2027l27?120 
50?201?1277 
127?205?123 
225;195;212 
20l7l?240?2 
205? 150? 127 
246?255?205 



32 ou 48 selon confis memoire F8 

106? 127?777t-777771 :REMAA 

7 205 ? 106 ? 127 ? 176 ? 129 7 221 ? 35 :REME7 

23776877l72057ll47l27?50 :REM70 

?15? 15?15?157205?1147l27 :REM7C 

35?35794?357867337l75 :REMEA 

? 127 ? 221 ? 229 ? 33 ? 166 ? 127 ? 126 :REMBF 

? 126 7 214 7 48 ? 254 ? 10 ? 248 ? 214 :REMDO 

16?205?1507 1277l?24?252 :REM6C 

?l?1567255?205?150?1277l :REM24 

7l50?127? l7255?255?62747 :REM07 




Adaptation 32K 



60 CM=32 


' 167 


107D 


DATA 


254?81?2057 


1080 


DATA 


221?126?255 


1090 


DATA 


40?168?1227 


1100 


DATA 


2027l91?120 


1110 


DATA 


50?201?191? 


1120 


DATA 


191?205?123 


1150 


DATA 


225?195?212 


1170 


DATA 


20l7l?240?2 


1180 


DATA 


2057l50?191 


1190 


DATA 


2467255?205 



32 ou 48 selon confis memoire FA 

106? 191?7?777?7771 :REMA9 

?205 7l06? 191? 176? 129 7 221 ? 35 :REME6 

237?68?7l7205?1147l9l750 :REM6F 

?15? 15?157l572057ll4?191 :REM7A 

35?35794?35?867337l75 :REME9 

? 191 ? 221 ? 229 ? 33 ? 166 ? 191 ? 126 :REMBC 

? 190 ? 214 ? 48 ? 254 ? 10 ? 248 ? 214 :REMCF 

16?205?150?19l7l7247252 :REM6B 

? I7l56?255?205?1507l9l7l :REM22 

7l507l91?l72557255?62747 :REMD6 



D0Q10 


i PROG 


PAMHE 


DE 


CONTROLE DE 


CHECKSUM D UN 


00020 


! PROGRAMME 


BASIC CHARGE EM 


MEMOIRE 


00030 


I COPYRIGHT 


<C 


1982 - TRACE 


00010 




ORG 




pre con 


1 SELON CONFIG MEMOIRE 


00050 


BASIC 


E«U 




1 POINT REPRISE BASIC 


00060 


CS 


LD 




IX.U0A4H) 


1 DEBUT BASIC 


00070 


MEXTL 


LO 




CO 


1 INI T VALEUR CS 


oooeo 




PUSH 




IX 


; SAUVE AD DEBUT LIGNE 


00090 




POP 




HL 


1 DANS HL 


0D100 




LP 




A, (III 


t 


00110 




OB 




<IX»1 ) 


1 AD CHAINE 


00120 




JP 




Z.BASIC 


; riN DU PROGRAMME 


00130 




LD 




A>(IX«2> 


1 


OOUD 




ADD 




AMIIO) 




00130 




ADD 




A>C 


1 



00160 




LP 


C.A 


1 CUMUL CS 


00170 




LD 


DEl* 


1 


00160 




ADD 


IX, DE 


I **. — > l> 


00190 


_IGN 


LD 


Ai< IX) 


1 


O02O0 




OR 


A 


1 FIN LIGNE' 


00210 




JP 


2.FLIGN 


1 OUI 


00:20 




CP 


20H 


1 ESPOCE? 


00230 




JR 


Z- BLANC 


1 OUI 


002*0 




CP 


93H 


1 REM' 


O0250 




JR 


NZ.M2P 


t NON 


00260 




LD 


AiC 


t LE "«" EST RETIRE 


00270 




SUB 


3AH 


! DU CHECKSUM 


00280 




LD 


C,A 


1 


00290 


CHERCH 


INC 


IX 


1 CHERCHE FIN LIGNE 


D0300 




LD 


At(IX) 


1 
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00310 


OR 


A 


1 


00320 


JR 


N2.CHERCH 


t 


00330 


JP 


FLIGN 


■ I 


00340 N2P 


LD 


A, MX) 


1 


DO 330 


ADD 


AlC 


1 


00360 


LD 


C>A 


1 CUMUL CS 


00370 BLANC 


INC 


IX 


! EVOLUTION POINTEUR 


00380 


JR 


LIGM 


; ET SUITE 


00390 FLIGN 


LD 


Ar I IX-2) 


t 


00400 


LD 


D.C 


1 SAUVE CS PART1EL 


00410 


CALL 


ASCBIN 


1 CONVERSION BIN 


00420 


RLCA 




t 


00430 


RLCA 




1 


00440 


RLCA 




1 


00430 


RLCA 






00440 


LD 


BrA 


■ SAUVE QUARTET FORT 


00470 


LD 


Ar( IX-1) 


1 


00480 


CALL 


ASCBIN 


1 CONVERSION BIN 


00490 


OR 


B 


! CS EN BINAIRE 


00500 


ADD 


A.c 




00310 


INC 


IX 




00320 


JR 


Z.NEXTL 


1 OK. LIGNE SUIVANTE 


00530 I LE CHECKSUM 


CORRECT N' EST 


PAS TROUVE 


00340 


LD 


A,D 


i CS PARTIEL 


00350 


NEG 






00540 


LD 


ltd 


i SAVE CS BINAIRE 


ons'0 


CALL 


BINASC 


1 QUARTET FAIBLE 


005BU 


LD 


■A2CS>,A 


1 


005*0 


LD 


All 


t 


00400 


RRCA 




: 


00410 


RRCA 






00620 


RRCA 




1 


00630 


RRCA 




I 


00440 


CALL 


BINASC 


! SUARTET FORT 


00430 


LD 


'A1CSI >A 


1 


00660 1 RECHERCHE NUMERO DE LIGNE 


POUR EDITION 


00670 


INC 


HL 


■ 


00480 


INC 


HL 




0O4T0 


LD 


E > 1 HL 1 


T 


00700 


INC 


HL 


! 


00710 


LD 


D.IHL) 


1 


00440 


'-ALL 


BINASC 


\ BUARTET FORT 


00450 


LD 


■ flics ■' >A 


1 


00440 : PECHEPCHE NUMERO DE LIGNE 


POUR EDITION 


00670 


INC 


HL 


1 


00480 


INC 


HL 




00490 


LD 


E , < HL > 


1 


00700 


INC 


HL 




00710 


LD 


DilHLl 


1 


D0720 ! CONVERSION NO DE LIGNE EN 


DECIMAL 


00730 


LD 


HL. BUFLIG 


! BUFFER ASCII 


00740 


CALL 


BINDC 


1 


00750 


PUSH 


IX 


; SAUVE POINTEUR LIGt 


00740 ! EDITION MESSAGE 




00770 


LD 


HL. ERREUR 




OO'SO SUITE 


LD 


A. (HL) 


1 


007°0 


CP 


1 


1 FIN TEXTC 


00800 


JR 


Z. FEDIT 




00810 


PUSH 


HL 


1 


00820 


CALL 


33H 


1 AFFICHAGE 1 CARAC 


00830 


POP 


HL 


1 


00840 


INC 


HL 




00850 1 GEL DU LISTACE SI SHIFT EST ENFONCEE 


00840 ATT 


LD 


A, I3880H) 


1 


00870 


BIT 


O-fl 


; SHIFT ENFONCE' 


00880 


JR 


NZiATT 


1 OUI 


00890 


JR 


SUITE 


I 


00900 i SUITE DU TRAITEMENT 




OO910 FED1T 


POP 


IX 


I RESTAURS PTR LIGNE 


00920 


JP 


NEXTL 


: LIGNE SUIVANTE 


00930 i ROUTINE CONVERSION HEXA ASCII --> BINAIRE 


00940 ASCBIN 


SUB 


•0' 




00950 


CP 


10 




00940 


PEI 


M 




00970 


SUB 


y 




00980 


RET 






00990 l ROUTINE CONVERSION BINAIRE 


--> HEXA ASCII 


01000 B1NASC 


AND 


OFH 




01010 


ADD 


Ai90H 




01020 


DAA 






01030 


ADC 


A.4QH 




01040 


DAA 






01050 


RET 






01040 1 ROUTINE CONVERSION BINAIRE 


— > DECIMAL 


01070 B1NDC 


LD 


BC i-IOOOO 




01080 


CALL 


CBD 




01090 


LD 


BCi-1000 




01100 


CALL 


CBD 




OHIO 


LD 


BC.-100 




01120 


CALL 


CBD 




01130 


LD 


BO-10 




01140 


CALL 


CBD 




01150 


LD 


BCi-1 




01140 CBD 


LD 


AVO'-l 




01170 


PUSH 


HL 




D1180 


PUSH 


DE 




01190 


POP 


HL 




01200 CB01 


INC 


A 




01210 


ADD 


HL.BC 




01220 


JR 


C.CB01 




01230 


SBC 


HLiBC 




01240 


EX 


DE.HL 




01250 


POP 


HL 




01260 


LD 


(HLI >A 




01270 


INC 


HL 




01280 


RET 






01290 I 








01300 1 BUFFER MESSAGE 




01310 ERREUR 


DEFH 


'-LIGNE ' ' 




01320 BUFLIG 


DEFS 




— 


01330 


DEFH 


' • CHECKSUM 


TROUVE if- "'/) 

C o0f yoo>- 


01340 A1CS 


DEFS 




01350 A2CS 
01340 


DEFS 
DEFB 


ODH 


01370 


DEFB 




>^>^ j 


01380 


DEFS 


48 ! POUR 


01390 Z2 


EM 






01400 


END 







TRACE 
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TRACE vous fournit quatre fois par an des pro- 
grammes, des astuces, de nouvelles idees 
d 'applications. TRACE est independant de tout 
constructeur, et vous tient au courant de toutes 
les nouveautes dans les domaines des logiciels, 
des materiels et des peripheriques, quelle 
qu'en soit la source. TRACE teste pour vous, 
en toute objectivite et independance, les pro- 
duits materiels ou logiciels qui vous interessent. 
TRACE nest pas en vente chez les marchands 
de journaux. Pour vous abonner ou pour com- 
mander le prochain numero ou un numero 
anterieur, reportez-vous a la page 5. 
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Decidez 
a l'aide de Visicalc 




Visicalc est disponible actuellement sur les trois 

modeles de "table" de TRS-80. 

La version la moins coQteuse est celle du modele 1 

qui vaut moins de 600 F ! 

II faut imperatlvement 18K en modele 1 et 3, et 64K 

en modele 2 sinon les tableaux de calculs realisa- 

bles aont ridiculeusement petlts. 

Le genie des ingenleurs americains qui ont concu ce 

logiciel est d' avoir passe du temps a observer ce 

que font lea comptablea, les analystes financiers, 

les ingenleurs, les contrSleurs de gestion avec 

leurs tableaux de calculs realises avec un crayon, 

une gomme et une calculette. 

Le domaine ideal d'application peut se deflnlr ainsi 
"Tout tableau de calcul qui sert a repondre a la 
question : que se passerait-11 si ... ?" . 

Ce tableau de calcul pourra etre conserve tel quel 
sur disque, imprlme au format desire par l'utillsa- 
teur, etc ... 

Les applications pratiques sont done innombrables : 
feullles de calcul de prix de revient, feuilles de 
calculs techniques, budgets, tableaux d'analyse 
financiere, bilan et compte d' exploitation simpli- 
fies, planning de tresorerle, calculs d'amortisse- 
ments, recherche de point d'equilibre, besoins en 
fonds de roulement, suivl de travaux mensuels, etc.. 
Sans oublier la tenue du budget familial et le 
calcul des lmpots ! ! 

Prenons l'exanple d'un budget de construction d'un 
immeuble d'habitation. 

Le constructeur se trouve en face de quatre incon- 
nues : 

le prix de vente 

le prix d' achat du terrain 

le cout de construction 

la marge qui rerounera les capitaux investis 

Au depart de 1' operation 11 connatt : 

. le prix de vente du terrain "detnande" 
. le cout de construction moyen de l'epoque 
. lea prix de vente du monde immobiller 
. la marge en dessous de laquelle 11 ne trouvera 
par les capitaux necessaire3 pour realiser 1' ope- 
ration. 



Le constructeur etablit done un budget previslonnel 
oil i| parametres aont inconnus mais bornes (au sens 
mathematlque du terme) . 

Pour faire le calcul de ce budget a la main, 11 
faut a peu pres une demi-heure et pour bien le 
presenter une autre demi-heure. 

L' experience prouve que pour aboutlr a une solution 
viable, 11 faut souvent recommencer ce budget vingt 
fois en le tlrant par tous les bouts ! 

Avec Visicalc, on fait un nouveau budget toutes les 
minutes si cela est neeessalre ! 

Comment s'y prendre pratlquement ? 

II faut etablir un document de base qu'on appelle 

generalement matrice et qui est le tableau "en 

blanc" avec toutes ses ecritures litterales et ses 

formules de calcul. 

Cette matrice peut etre obtenue en "blanchissant" 

un premier tableau qui aura servi de brouillon. 

Le choix du format des colonnes depend icl du nombre 
de chiffres a faire apparaltre (9 dans le cas pre- 
sent) . 

Le tableau presente necessite 9 colonnes de 10 ca- 
racteres, il faut en tenir compte pour loger lea 
libelles et les variables auxilialres dans des cases 
independante3 permettant de les utiliser dans les 
calculs. 

Pour la matrice, il faut supprimer l'ordre de calcul 
automatique ce qui perraettra d'introdulre les don- 
nees plus rapidement ulterieurement. 

Finalement le document pourra etre mis pratlquement 
sous la forme ou 11 etait utilise par les calculs 
manuels avec edition par une dactylo. 
Mais en plus, et sans imprlrner, une varlete presque 
infinie de simulations pourra etre falte a l'ecran 
avec la possibilite de stocker sur disque les solu- 
tions interessantes. 

Un outil d'une tres grande souplesse et dont les 
applications 3emblent illlmitees. 




J. P. STREMLER 
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S.C.I. LA RESIDENCE 

OES ROSES 

LA SOLIMRITE 



ECETTES 

VEHTE A LA CAISSE DE RETRAITE 
TOTAL DES RECETTES 
1EPENSES 



BUDGET DE CONSTRUCTION 

III I II I I I HHH IH 

VALEUR: MAI 1981 



L.:18 NAI 1981 



PRIX TVA SUR 
HORS TVA RESLEHENTS PRIX TTC 



|35829954| 6165272 41199226 
3582995* 6165272 41195226 



Terrain 






1 45*54281 


559996 


5185*16 


Frail d'»cquiiition 






76688 


• 


76608 








4622828 


559996 


5182816 


6eo«etre ft tondages 






55272 


9728 


65888 


lr»nche»enta 






3656*6 


6*95* 


*38888 








420918 


7*682 


*95BS8 


CONSTRUCTIONS 


68B7K2 Hab t 
123 t 




19237928 
2682788 
1*43771 


3385875 
*72178 
254114 




Habitation* 


3285 F TTC 


22623795 


Parking**Box*i 


25658 F TTC 


315*958 


Etpacta v*rt»+VRD 




1697875 



2336**71 *1 121*9 27*76628 



PRESTATIONS DE SERVICES 



Architect* 


6X ht de« travaux TTC 


16*8597 


298153 


1938758 


Gestion : 


2.51 ht du Prix d« v*nte TTC 


1829888 


181258 


1211138 


Vtntt i 


27 ht du Prix d* vent* nC 


82398* 


1*5887 


968911 






3582381 


616*18 


4118799 


FRAIS ANNEXES 










Frail financiers 




708088 


ft 


708888 


TAXES et Diver* 




950888 


8 


958880 


Aiauranc* PI. 0. 


2Xttc i/Tx*Archi*Socotec 


593865 


8 


593865 


Socotec : 


.86X ht de* travx nC 


236298 


41588 


277886 




TOTAL BRUT 


2*80163 


41588 

5*8*833 


2521751 




3*389953 


39794186 


T.V.A.cwletentaire ( 6165272 -5*8*833) 






768*39 




PRIX DE REVIENT ttc 






*B55*625 




NARff: 11.51 P.V. ttcl 


640681 




TOTAL 






*1 195226 



C.I. LA 

DES 
LA SOLltARITE 



IESIDENCE 
I OSES 



ECETTES 
ENTE A LA 

EPENSES 



errain 
rai» d' 



CAISSE DE 
' OTAL DES 



ac<uisition 



RETRAITE 



ECETTES 



BUDGET DEI CONSTRUCT ION 

■ ■■■*■■ ■ !■ ■■■»■■» I 

■ ■•*•■■• itflf f If f 1 



VALEUR: 



NAI 1981 



L«18 NAI 



PRIX 
HORS TVA 



TVA SUR 
|RE6LErB<7S 



35829954 
35029954 



4545421 

766M 

4622B2S 



616527: 
616527: 

559996 
I 

559996 



1981 

PRIX TTC 

4119522(1 
4119522* 



5105411 

76681 

5182BK 
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coMtre tl 
ranch«wnt« 



IONSTRUCTK « 
labitatiofli 
'»rking»*J( xei 
•pacts v«rt«+VRD 



HESTATIOK 

rchittctt 
*ttion : 
lent* : 



MIS ANHF) :S 



rait finaifc 
foXES «t 
iisuranct 
locottc 



sondaget 



D£ SEHVI ES 



6' 
2.5 
4 



un 

divers 
.0. 



T.V.A.(»pl(Mnti In 



68871 2 Hab t 
123 » 



ht d«s 
ht du 
ht du 



ti|avaux TTC 
d« vtnt 
it v«nt 



Prx 
Pr:x 



.863 



OTAL BRUT 



i m x 

OTAL 



6165272 



3285 

25651 



TTC 
TTC 



F TTC 
F TTC 



Z ttc »/Tx+ rchi+Soco :« 



ht dec t avx TTC 



BEVIENT 



ttc 
1.5 



-5484833 



P.V. ttc 



55272 
36564c 
42891c 



19237921 
2682781 
1443771 

23364471 



16A8597 
1829888 
823984 

3582381 



7IHH 

958888 
593B65 
236298 

2488163 

3A389953 



97H 


65W 


6495' 


438881 


7468: 


495W 


338587! 


226237* 


♦72171 


3154951 


23411 


169787! 


4112141 


27476621 


29*15: 


1938751 


18125S 


1211131 


145187 


96891: 


61641E 


411879" 


8 


788881 


a 


958881 


l 


59386! 


41588 


2778ft 


41588 


252175: 


54B4833 


39794 II 




76843 1 




4855462! 




64868: 




41195221 



professionneL 



Les TRS sont sympas, 
ils calculent pour vous 



Le TRS-80 au service des PME ? Voici un exemple qui 
demontre clairement que cette petite machine n'est 
pas seulement le jouet des amateurs d' informatique 
que, mais peut se reveler etre un instrument qui 
apporte aujourd'hui sa contribution a la bonne mar- 
che des entreprises. 

Depuls quelques annees, une societe de services de 
Garonor dont la vocation s'orientait de manlere pri- 
vileglee vers la resolution des problemes de trans- 
port, a mis au point un systeme a base de TRS-80 qui 
permet d ' informatiser et d'automatl ser le transport 
de col is a travers toute le France. 

Les expediteurs, repartls en differents points de la 
metropole, ont a leur disposition un TRS-80 modele 
1 (plus rarement modele 2). Cet ordinateur de bas 
prix leur permet de reallser avec leur propre per- 
sonnel, sans formation particuliere, et au fur et a 
mesure des besoins, la constitution des fichiers, 
1 'edition automatique des etiquettes dea colia aux 
noms et adresses de leurs clients, la creation des 



recepisses de transport et des bons de remise de la 
marchandise. et enfin, l'edition des releves des 
expeditions et le controle des envois. 

Dans certains sites, plus besoin n'est de lire le 
poids d'un colis et d'en determiner 1 'affranchisse- 
ment : le TRS est relie a' une bascule qui lui trans- 
fere 1 'Information necessaire a ce traltement. 

Cette application est operationnelle depuls deja 
quelques mois, et est utilisee quotidiennement avec 
succes. Elle controle entierement l'acheminement des 
colls, depuls leur point de depart (expediteurs 
clients de l'entreprise de transport) jusqu'a 
Garonor oil les caraions les conduiront vers leurs 
destinations finales. 

Differents niveaux de services peuvent etre envisa- 
ges pour l'expediteur, en fonction de ses desirs, 
de ses besoins ou de ses moyens, ce qui rend cette 
application tres modulaire. Nous parlerons lei 
d'une configuration se situant dans la moyenne. 
Mais . . . transportons-nous sur le site ! 
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AU DEPART . .. 

Nous nous trouvons actuellement dans une ville de 
province ou se trouve precisement un client impor- 
tant de cette societe de transport. Une operatrice 
est occupee a falre de la saisle sur le clavier 
d'un modele 1. Celui-ci est relie a une lmprimante 
parallele et a une bascule electronique. 

Un colis vient d'etre pose sur la bascule qui 
oscille encore, tandis que 1' operatrice s'appllque 
a entrer les informations qui lui sont demandees 
concernant cette expedition : destinataire. nombre 
de colis. type de port, message eventuel. etc ... 

Lorsqu'elle en arrive a la question "poids du colls 
?", ... oh miracle ! : le poids a'affictie automati- 
quement sur l'ecran ! Une liaison "telecommunica- 
tion" via la carte serie de l'ordinateur et un modu- 
le de communication ont perrais de recuperer dlrec- 
tement le poids lu par la balance. 



Les risques d'erreur etaient lmportants et aucun 
controle efficace ne pouvalt etre effectue sur le 
passage des colis qui ne restalent parfois que quel- 
ques minutes dans cet entrep3t. 



Des ordinateurs o 
lottos de debarqu 
sur lesquels pass 
decharges. 

Un "scanner" (lee 
"code a barres" s 
l'envoie vers un 
ciel special inte 
met a la chalne d 
vont provoquer le 
.'oulotte de desti 



nt ete mis en place pres des gou- 
ement. le long des tapis roulants 
ent les colis qui viennent d'etre 

teur optlque) a rayon laser lit le 
itue sur l'etlquette du colls, et 
ordlnateur. Dans celui-ci. un logi- 
rprete cette information et. trans- 
e tri les ordres necessaires qui 

bon acheminement du colls vers la 
nation. 



La rapidite et la fiahillte de l'execution de cette 
phase est remarquable et 1 'etiquette "code a barres" 
est lue san.", problems, quel que solt son sens, 
pourvu qu'elle solt dans un plan donne. 




Mais ce n'est pas tout ! Des qu'un Instant de repit 
preaente, solt entre l'arrivee et le decharr-e- 



Lorsque 1 'operatrice termine la transaction, et don- 
ne son accord sur l'enregistrement du colis. une 
etiquette autocollante est imprimee. Celle-ci con- 
tient toutes les indications necessaires a 1' expedi- 
tion, alnsi qu'un label imprime en "code a barres". 
ce qui surprendrait nombre de professionnels de 
1' lnformatique s'ils savaient que 1 ' lmprimante uti- 
lised est tout-a-fait banalisee. 

L' etiquette n'est pas encore terminee que 1' opera- 
trice est deja en train de saisir 1 'expedition sui- 
vante. 

Etiquetes correctement, le3 colis prennent alors la 
route de Garonor ou ils sont attendus afin d'etre 
tries, puis repartent vers leur destination finale 
dans d'autres camions de transport. 

La disquette creee lors de la salsie et contenant 
toutes les informations concernant le contenu de 
chaque camion, pourra soit etre jolnte a 1 'expedi- 
tion et remise a l'arrivee. soit voir son contenu 
transmis a Garonor par liaison telephonique. 



A L'ARRIVEE .. . 

Maintenant. nous sommes a Garonor. le long d'un 
quai de dechar~;ement. ou se preserte le camion conte- 
nant nos colis. 

Sous ce r;rand hangar se trouve une /Usantesque chal- 
ne de tri de colis. Avant l'informatisation complete 
du systeme dans laquelle les petits TRS-dO ont en 
fait pris une part importante. un operateur lisait 
l'adresse du destinataire sur le colis. en deduisalt 
le departement et, apres avoir consulte un tableau 
et manoeuvre un clavier, provoquait le depart du 
colis vers une goulotte de destination correspondant 
a la region ou devait etre achemine celui-ci. 



raent de deux camions, soit pendant une perinde oil In 
chatne de tri se vide, le systeme envole automatlque- 
ment toutes les informations concernant les coiia 
traites vers un ordlnateur plus important. Celui-r. I 
effectue les rapprochements necessaires entre les 
informations qui viennent d'etre saisies, et celles 
qui avaient ete transmises par le client apres la 
saisie inltiale (minidisquette ou liaison telephoni- 
que). 

La boucle est alors "bouclee" et 11 ne reste plus 
qu'a tralter ces informations : elles vont permettre 
un suivi tres fin et en temps reel des expeditions 
ainsi que quelques exploitations comptables et 3ta- 
tistiques. 

L'originalite de ce procede conslste a avoir reussi 
a tralter, avec du materiel peu couteux et done 
accessible a toute entreprise si petite soit-elle. 
la quasi totalite des operations d'expedition. 

Un autre interet reside dan3 la modularite de 
1 'application. Point n'est hesoln pour commencer 
<lans cette vole, de disposer de bascules electroni- 
ques. de lecteurs de code a barres on de chaire de 
tri de colis sophistlqnees. 

II est toujours possible de peser le colis et d'enr 
trer manuellement son poids sur le clavier de l'or- 
dinateur. De merae. a l'arrivee. or peut lire 1 ' eti- 
quette et or~aniser le tri en consequence. Toutefois. 
ces perfectionnements techniques apportent. par une 
automatisation quasi totale de 1 'acheminement des 
colis, une tres grande securlte par 1 'elimination de 
toute erreur llee a une defaillance humaine. et par 
consequent, un plus grand "confort" aux employes. 



Rene Thomas 
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enseignement 

Un programme 
de classe 




L'ordinateur peut etre utilise en matiere d'enselgne- 
ment de nombreuses facons, par exemple : 

Par 1" administration scolalre pour l'emplol du •- 
temps, la gestion des dossiers des eleves et des 
enselgnants. la bureautique en general. 

Par les professeurs pour la tenue des notes des 
eleves, la personnalisatlon des appreciations, la 
mlse a Jour des documents, la fabrication plus ou 
moins autoraatique d' exercices. 

Par les eleves pour l'apprentissage des dlverses 
matleres. 

Des ordlnateurs sont utilises avec succes pour 
enselgner des tranches completes de cours, de manie- 
re interactive avec l'eleve. On peut citer le syste- 
me PLATO, ou le langage PILOT. Mais quand il s'aglt 
d'exercices courts, point n'est besoin d'un langage 
particulier, le BASIC convlent parfaitement. 

Le but de cet article est de presenter deux exemples 
d ' entralnement a des exercices mathematiques, 
entrant dans un merae schema de programme. Quand on 
ecrit un programme pedagogique, on s'apergoit assez 
vlte que ce programme est autant consacre a la 
liaison ordinateur-eleve qu'a l'exercice lui-meme. 
On peut concevoir un tel programme en deux parties, 
l'une generale et alsement adaptable, et 1' autre 
portant sur l'exercice lui-meme. 

Les programmes ci-dessous en sont une illustration. 

Mis au point par amusement, voicl deja pas mal de 

temps, lis etaient destines a mes enfants. 

lis portent sur de calculs de fractions ainsi que 

sur la resolution d' equations llneaires a deux 

inconnues (a determinant non nul). 

Ila posaedent trois niveaux de dlfficultes, corres- 

pondant en fait a des donnees numerlque3 plus ou 

moins grandea. 

1) - PARTIE COMMUNE 



C.es programmes BASIC utillsent les faclLites du 

TRS-BO : 

- les categories de variables sont declarees au 
debut, cela evlte d'avolr a utiliser les slgnes 
3pecifiques. II sufflt de se rappeler la partition 
effectuee au depart. 

- THEN est systematiqueraent orois apres IF. 

- NEXT n'est pas suivl du nom de l'lndice de 
la boucle. 

Les programmes sont specialises a partlr de la llgne 
1000. La portion qui precede est commune, elle ren- 
voie par GOSUB aux lignes propres de l'exercice : 

GOSUB 1000 concerne l'affichage du tltre de 

l'exercice. 
GOSUB 1200 perraet de fabriquer l'enonce de 

l'exercice. 
GOSUB l"400 affiche cet enonce. 
GOSUB 1500 determine les bonnes reponses et compare 

a la solution de l'eleve. 
GOSUB 1600 affiche la bonne reponse. 

Peu de chose a dire sur lea exercices eux-mrmes. 

PREMIER EXERCICE 

Les fractions sont fournles slmpllflees (on recon- 
naltra l'algorithme d'Eucllde dans le GOSUB ?0O0), 
mals l'ordinateur accepte de la part de l'eleve 
toute fraction correcte non redulte. Signaler cette 
non reduction n'a pas ete realise pour ne pas 
allonger le programme. 

SECOND EXERCICE 

Les equations sont obtenues a 1'envers. On a ainsi 
de3 valeurs entieres tant pour les coefficients que 
pour les racines. L' entree aleatoire des seuls 
coefficients n'apportalt rlen, sinon quelques cas 
singuliers. De plus les formules de Cramer rlsquaiene 
d'ititroduire des solutions a ecriture fractlonnalre 
compllquee ou declmale seulement approchee. 
_^^^^^^^^^^^^^^^^^^^__^^-^^ Jean Le Flour 
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EXERCICES MATHEMATIQUES (J. LE FLOUR) F6 

' Fl 

DEFSTR A-G: DEFINT H-N:REMC7 

RAND0M:REM5C 

A(0)="V0US L'AVEZ FAIT EXPRES 0U QU0I?":REME1 

A(1)="C'EST TRES MAUVAIS7 ATTENTION" : REM61 

EST INSUFFISANT; V0US DEVEZ TRAVAILLER" 
EST TR0P MOYEN? IL FAUT V0US ENTRAINER" 
EST HONNETE? V0US P0UVEZ V0US AMELI0REP. 
EST BIEN; ESSAYER DE FAIRE ENCORE MIEUX 



A(2)="C 
A ( 3 ) = " C 
A ( 4 ) = " C 
A ( 5 ) = " C 



:REM5A 
:REMDS 
":REM25 
":REME5 
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80 A(6)="C'EST TRES BIEN? CONTINUEZ DANS CETTE V0IE":REM64 
85 A(7) = "FELICITATI0NS7 VOUS ETES UN CHAMP ION !": REM3E 

99 ' 9D 

100 CLS:REM18 

110 GOSUB 1000:REM40 

120 H1=0: H2=0: PRINT" 1. EXERCICES FACILES": PRINT" 

2. DIFFICULTE MOYENNE": PRINT" 3. EXERCICES PLUS 
DIFFICILES": PRINT:REM78 

130 INPUT"ENTREZ VOTRE CHOIX"'I: IF I<0 OR I>3 THEN 
130:REMB1 

140 PRINT: GOSUB 1200:REM34 

145 PRINT: PRINT"ENTREZ VOS REPONSES": PRINT: GOSUB 
1500:REMD1 

150 ON H+l GOTO 160 j 170; 155 :REMD4 
155 PRINT"VOUS AVEZ TROUVE": GOTO 500:REMAB 
160 PRINT"VOS REPONSES SONT FAUSSES.": GOTO 400:REM1C 
170 PRINT"VOS REPONSES SONT EN PARTIE EXACTES" :REM50 
400 PRINT: PRINT" POUR RECOMMENCER L'EXERCICE; TAPEZ 
<E>": PRINT" POUR OBTENIR LA SOLUTION TAPEZ <S>": 
PRINT:REM1D 

410 G=INKEY*: IF G="" THEN 410:REMF8 
420 IF G="E" GOSUB 1400: GOTO 145:REM70 
430 IF G="S" GOSUB 1600: ELSE 410:REM19 
500 PRINT: PRINT" SOUHAITEZ-VOUS" : PRINT" 1. 
CONTINUER AVEC UN EXERCICE DE HEME NIVEAU": PRINT" 
2. CONTINUER AVEC UN EXERCICE DE DIFFICULTE DIFFERENTE": 
PRINT" 3. INTERROMPRE LES EXERCI CES" : REM32 
510 PRINT: INPUT"VOTRE CHOIX";I: PRINT:REMCD 
520 ON I GOTO 140?5307540:REM61 

530 GOSUB 600: PRINT: PRINT" ET MAINTENANT": PRINT: GOTO 
120:REMDB 

540 GOSUB 600: FOR 1=1 TO 4000: NEXT: CLS: PRINTa520?"A U 
R E V I R": PRINT: PRINT: PRINT: END:REM93 
600 T=INT(2QQ*Hl/H2+.5)/lQ: PRINT"POUR CES EXERCICES AVEC 
CE NIVEAU DE DIFFICULTE?": PRINT" VOTRE NOTE ETAIT 

"T"SUR 20": PRINT:REM93 
610 PRINT A(INT(T/3+.5) ) : RETURN:REMDC 

++++++++ 1A 



990 ' 


IF 


995 ' 


+ + 


999 ' 


16 



2) - PARTIE SPECIALISEE : CALCUL FRACTIONNAIRE 



1000 PRINT" ENTRAINEMENT AU CALCUL FRACTIONNAIRE": PRINT: 

R£TURN:REMCE 

1199 ' 4D 

1200 PRINT: PRINT" CALCULEZ LA SOMME7 LA DIFFERENCE; LE 
PRODUIT ET LE QUOTIENT DES FRACTIONS A ET B SUIVANTES 
:":REM61 

1210 N=7*I :REMDO 

1220 L=RND(N)+5*(I-1): M=RND ( N ) +5* ( I- 1 ) : GOSUB 2000: IF M=l 

THEN 1220 ELSE LA=L : MA=M:REM4E 

1230 L=RND(N)+5*(I-1): M=RND (N ) +5* ( I- 1 ) : GOSUB 2000: IF 

L=LA OR M=MA OR M=l THEN1230 : REMA6 
1240 LB=L: MB=M:REM8A 
1399 ' 84 
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1400 PRINT"A = "LAV-MA" B = "LBV'MB: RETURN:REM62 

1499 ' 20 

1500 H=0: L=LA*MB+LB*MA: M=MA*MB: GOSUB 2000: LX=L: MX = M: 

T1=L/M:REM02 

1510 L=LA*MB-LB*MA: M=MA*MB: GOSUB 2000: LY=L: MY=M: 

T2=L/M:REM7B 



1520 


L=LA*LB: 


M=MA*MB: GOSUB 2000: LZ=L: MZ=M: T3=L/M :REM28 


1530 


L=LA*MB: 


M=LB*MA: GOSUB 2000: LT=L: MT=M: T4=L/M:REM29 


1535 


' FC 




1540 


PRINT" A 


+ B 


"?: GOSUB 1590: IF T=Tl: H=H+l:REM2F 


1550 


PRINT" A 


- B 


";: GOSUB 1590: IF T=T2: H=H+1:REM22 


1560 


PRINT" A 


. B 


";: GOSUB 1590: IF T=T3: H=H+l:REM16 


1570 


PRINT" A 


/ B 


";: GOSUB 1590: IF T = T4: H=H+l:REMOA 


1580 


H1=H1+H: 


H2=H2+4: H=INT(H/2): RETURN:REM58 


1590 


INPUT" 1 


MUMERATEUR";L:PRINTCHR$(225)+CHR$(27);:INPUT" 



T=L/M: RETURN:REM3D 



A - 
A / 



B 

B 



= "LY"/"MY:REM2E 



DENOMINATEURVM: 

1599 ' BB 

1600 PRINT"A + B = "LX "/ "MX" 
1700 PRINT"A . B = "LZV'MZ" 
"LT"/"MT:RETURN:REMFF 

1999 ' 2A 

2000 L2=ABS(L): M2=ABS(M): IF M2>L2: K=M2: M2=L2: 
L2=K:REM04 

2010 K=L2-M2*INT(L2/M2): IF K>0 L2=M2: M2=K: GOTO 

2010:REM22 

2020 L=L/M2: M=M/M2 : RETURN : REM95 



3) - PARTIE SPECIALISEE : CALCUL D'EQUATIONS 



1000 PRINT"RESOLUTION DE SYSTEMES D'EQUATIONS LINEAIRES A 2 
INCONNUES": PRINT: RETURN:REM68 

1199 ' 4D 

1200 PRINT"VEUILLEZ RESOUDRE LE SYSTEME 
1210 Il=l:REMAA 

1220 FOR 1=1 TO 2: FOR J=l TO 2: 
K(Ii J)=RND(4*I1+1)-5*(I1-1):REMCF 

1225 IF K(I?J)=0: J=J- 1 : NEXT:REME1 

1230 IF K(Ii2)=K(Iil): J=J-l: NEXT: 

1240 IF K(l?l)*K(2?2)"K(li2)*K(2»l) 

1250 FOR 1=1 TO 2: K ( I i 0) =RND( 4*1 1+1 ) -2*1 1 : 

1 = 1-1 : NEXT: ELSE NEXT:REM18 

1399 ' 84 

1400 FOR 1=1 TO 2: PRINT K(I;1)"X";: IF K(Ii2)<0: PRINT" 
-"ABS(K(Ii2))?: ELSE PRINT" +"K ( I il) ? :REMQQ 
1410 PRINT"Y ="K(l7l)*K(l70)+K(I»2)*K(27O): NEXT: 
RETURN:REM1D 

1499 ' 20 

1500 INPUT" VALEUR DE X ";K1: INPUT" 
: PRINT:REM8F 

H=0: IF Kl=K(liO>: H=H+l:REME8 

IF K2=K(2»0): H=H+1:REM63 

H1=H1+H: H2=H2+2: RETURN:REM57 

' BB 

PRINT"LES INCONNUES SONT X ="K(1»0) 



PRINT:REM9C 



ELSE 
THEN 



NEXT J ? l:REM93 
1220:REME7 

IF K(I;0)=0: 



";K2 
1510 
1520 
1530 
1599 
1600 
PRINT: RETURN:REMD7 



VALEUR DE 




ET Y = "K(2;0) 
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essaL 



Pour les sportifs 
du clavier 



Ce programme ecrit par Timothy W. Smith, eat une 
excellente demonstration des po3slbilltes graphiques 
pouvant etre attelntes sur le modele 1 dont ia reso- 
lution n'est pourtant pas tres elevee. Bien que l'on 
puisae lul reprocher 1 'absence d'effets sonores {le 
coup de pistolet du depart, par exeraple), ce jeu est 
tres attractif et tres amuaant. 

i.e programme, comme l'indique son nom. fait partici- 
per le oil lea Joueurs (8 an maximum) aux rtix epreu- 
vea cl^ssiquea : 100 metres, saut en lonrneur, lan- 
cement Mu poida. saut en hauteur, too metres. 110 
metres haies, lancement du 'Usque et du Javelot, saut 
a la perche et 1"S00 metres. Inutile Me decrlre 
l'etat dans lequel se trouvent lea participants a la 
fin des epreuves ... II ne manque que le soicneur ! 
Quoi que l'on en pense, ce jeu est assez fatigant, 
tant sur le plan mU3culalre (les doigts aurtout !) 
que aur le plan nerveux. En fait, c'est le clavier 
qui en souffre le plus. . . . et tout parti cullerement 
les touches 1 et 2 ! 

Avant de particlper au decathlon, chaque joueur a la 
possibility de s'entrainer sur une ou plusieurs 
epreuves de son choix. Cela est necessaire pour 
s'echauffer un peu ... 

Par contre. lorsque les jeux sont ouverts, les points 
sont comptea et un classement general est affiche. 
Une medaille d'or reconpensera le vainqueur ! 




Chaque epreuve est entierement graphique et est 
accompagnee de quelques lignes de texte indiquant 
la marche a suivre et les touches utilisees : barre 
d'espace pour demarrer, fleche en bas pour planter- 
la perche, fleche en haut pour lever le bras tenant 
le poids, etc . . . 

Selon les epreuves, certaines questions sont lnltla- 
lement posees : hauteur de la barre, hauteur de 
maintien de la perche, vitesse de rotation du mar- 
teau . . . 



■ympic 
Decathlon/i 



Certaines epreuves sont particulierement complexes. 
Le saut a la perche, par exemple. met en Jeu cinq 
touches : f leches gauche et drolte pour courir, fle- 
che e» bas pour planter la perche. fleche en haut 
pour ilonner le coup de rein et CLEAR pour lacher la 
perche ... Personnellement, Je r-'ai Jamais franchl 
la barre ! 

Par f ols, le programme se montre tres lronlque, sur- 
tout s'll voua arrive quelques malheurs tela que 
tomber sur la tete, lancer le marteau dana les tri- 
bunes, ou lancer le poids a la verticale ! II se 
montre egalement un juge tres attentif : essayez, 
pour voir, de partir avant le coup de pistolet ! 

Le saut de hales est assez spectaculaire. En f rap- 
pant - rapidement de preference - sur les touches 1 
et 2, on actionne les Jambes du coureur. Lorsqu'une 
hale se presente, il faut lalsser la touche enfoncee 
un bref Instant pour que le coureur saute la haie. 
Si l'on a raal prevu son coup, le participant mal- 
chanceux heurte la haie qui s' incline et tombe, vous 
donnant de mauvals points . . ■ 

Les courses sur pistes peuvent admettre deux coureurs 
a la fois. Chaque Joueur se deplace (en deux dimen- 
sions pour le 1500 metres) aelon dea touches qui sont 
preciseea au moment de 1' epreuve. Si votre clavier 
eat un tant soit peu fragile, c'est a ce raoment-la 
qu'il rendra l'ame ... ou qu'il sera gueri de toils 
ses rebonds ! Le mien a passe 1' epreuve du decathlon 
avec succea, mmoi ppass !! 

Le programme est livre en version cassette ou dls- 
quette, et accompajftne d'une notice explicative. La 
dlsquette qui resiste faroiichement aux duplications 
"claasiques", permet toutefoia une seule cople, 
Chaque epreuve est lue » partir du .Usque aloro 
qn'e" version cassette, cinq sont charnees stmnltane- 
mer»t er memoire. 

En conclusion : un excellent programme pour les 
"sportifs du clavier" . . . 

Alain Pinaud 
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scientifique. 



La boite a outils 
mathematiques 




^e* 



Lea ordinateurs ne 3avent pas calculer 

Demandez a votre TBS-80 d'additionner J et 1/3 et 11 

vous repondra 0,583333 alors que le resultat est 

7/12. 

Essayez de calculer factorielle 30 (c'est-a-dire 

30 x 29 x 28 x ... x 3 x 2 x 1 ) avec par exemple le 

petit programme BASIC sulvant : 



10 INPUT N 

20 R=l 

30 FDR 1=1 TO N 

40 R=R*I 

50 NEXT I 

PRINT N,R 



60 

70 GOTO 10 



Vous obtlendrez pour N=30 : 2.65253E+32 au lieu des 
53 chlffres du resultat exact : 

2652528598 12191 05 8636308480000000 

Les interpreteurs tela que BASIC rtepresentent toutes 
les informations sous forme de nombres compactes sur 
quelques octets, ce qui explique 1 'approximation 
obllgatolre dea resultat3. 

Mais 11 arrive 3ouvent que l'on ait besoin de resul- 
tats rigoureusement exacts, et non approximatifs. 
Cela n'est possible qu'en utilisant un programme qui 
permet un calcul forme 1. Le programme MUMATH en est 
un excellent exemple , qui permet a l'utlllsateur 
d'effectuer avec toute la rigueur necessaire les 
calculs arlthmetiques, algebrlques, trlgonometrlques, 
differentiel„et integral, comrae on les effectuerait 
(beaucoup plu3 laborieusement ! ) a la main. 



Un exemple d 'utilisation 

Le signe d'invite de MUMATH eat "?" qui indique qu'il 
est pret a accepter une commande. VoUs tapez alors 
une commande ou une operation suivle de ";". 



Le programme execute les calculs puis inprime 3ur la 
ligne suivante " - 3>" suivi du resultat : 



? (l/3+9/27)/3; 
3 2/9 

(verifiez, c'est bien 2/9 le resultat et non sa 
valeur approchee 0,222222). 

On peut aussi facilement elever un nombre a une 
puissance, et obtenlr tous les chlffres significa- 
tifs : 

? 3tS0| 

9 7 178979B769 1852588770249 

(et non 7, 17898E+23) . 

Lea calculs de factorielle aont ausal dans lea 
competences du programme, meme s'ils prennent plus 
de temps : 



* 9332621 3443944 ! 3268 1 6992388362667004 907 13968264 JB 1 62 1 46839296 
38932 1 73999932299 1 360894 1 463976! 363 1 8286233697920927223738231 1 8 

Szi 09 1 686400O60o000OOO00O0o0000O00 



(5 secondea de calcul) 



? 200 ' I 

S 7886378673647903033323632139321830622931339776871732632947423 
3324435944996340T3429203042840 1 1 9B4623904 1 772 1 2 1389 I963B8302376 
427902426371030619266249328299311 1346283727076331 72373969889439 
22*43621 43 16642402340332918641 31 2274282948332773242424073739032 
40321 23740337936866022603 1 904 1 70324062 33 1 700838796 1 789222227B96 
23703897374720000000000000000000000000000000000000000000000000 



(20 secondes de calcul) 
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line seule condition : la longueur des nombres ne 
dolt pas depasser 611 chlfrre3 ce qui represente une 
precision vlrtuelleroent Inflnie ! Ainsl le programme 
refuse-t-11 de calculer factorlelle 300, qui compor- 
te trop de ohiffres : 

7 300 ! | 

8 FALSE 

[/Utilisation de variables permet une grande souples- 
se de calcul. Le signe d' affectation est ":" et non 
"=" comme en BASIC : 



7 

Nl 

3 30 


30 5 




7 

Ml 
9 12 


12 | 




7 

N! / ((N-M) 
9 86493223 


*M'> 



Pour vlsualiser le contenu d'une variable, 11 suffit 
de taper son nom suivi de ";". La variable #ANS 
contient toujours le dernier resultat calcule, ce 
qui permet d'enchalner facileroent lea calculs raalgre 
la longueur des resultats. 

7 23*#ANS; 

8 2162330625 

Voulez-voua calculer dans une autre base (16 par 
exemple) ? rien de plus simple : 



RADIX (16) 
9 A 

(A represente l'ancienne base dans la nouvelle, c'est 
a-dire 10 en base 16). Le contenu de toutes les va- 
raibles est autoraatiquement converti. Vous disposez 
alors d'une ealculatrice hexadeclmale : 

? 

7CBO - 2*12EF 
9 36A2 

(pour revenir en base 10, taper RADIX(OA)i) 
MUMATH peut egalement calculer les Plus Grands 
Communs Diviseurs : 

7 BCD (367, 453) | 

9 3 

et les Plus Petits Comnuns Multiples 
? LCMU39,675)j 

9 93823 

La trlgonoraetrle n'a pas de secrets pour MUMATH, qui 
connalt egalement les constantes telles que jlPI 
(3, 14159-. -) : 

7 

SIN (37*#PI/3> i 
9 3t (1/2) / 2 

(remarquez que la encore, on obtlent un resultat 
exact, et non une valeur numerlque approchee) ainsl 
que *E (base des logarlthroes Neperiens) et #1 (pour 
les nombres imaginairea) 

7 #E4- (3 » #1 * #PI/2> ) 

9 - #1 

Voulez-voua faire de I'algebre ? MUMATH accepte les 
variables lndefinies dans les expressions. BASIC 
algnalerait une erreur alors que MUMATH les con3ide- 



re comme dea lnconnues et slmpllfle de telles 
expre3siona : 

7 6*X*5/(9*X>; 
9 2*X*4 / 3 

MUMATH developpe tres facilement dea expressions 
algebrlques : 



(2«x*2 - 5*x ♦ 4>*5 
d 1024 - 6400»X » 18360»x42 - 32S00»X*3 + 39060txt4 - 
32723*xts * 19330*X*6 - 820O*Xt7 ♦ 2320*X»B - 400«xt 
9 ♦ 32»XtlO 



ou les factorise : 

FCTR (6*XT3»Y + 15*XT2»Y> 
9 3 * Xf2 * Y * (5+2*X) 

En fait une factorisation peut s'effectuer de blen 
des manieres selon le resultat souhaite, grace au 
contenu de 7 variables. ILs vous faudra en fait 
malfcrlser ces 7 variables de controle pour deflnir 
la maniere dont MUMATH exprlmera les resultats : 
NUMNUM, DENDEN, DENNUM, NUMDEN, BASEXP, EXPBAS, 
PWREXPD. 

Une expreasion peut egalement etre affectee a une 
variable : 

7 TOTOjP*SIN(X)+x42s 

9 P*SIN(X> ♦ Xt 2 

Le calcul differentiel et la calcul integral aont 
les poaslbllitea lea plua etonnantea de MUMATH. 
Derlvona TOTO par rapport a X : 

7 DIF(TOTO,X> j 

9 2*X + P*COS(X) 

MUMATH eat egalement trea brlllant en calcul Inte- 
gral. Integrona par exemple 1 par rapport 

ax2+bx-i-c 



7 INT(l/(A*X+2+B*X+C) ,X> j 

Aprea dlx aecondes de calcul, 11 demande, pulaque 
dana le caa particulier de la fonction lntegree ceci 
est neceasaire : 



-1 • * OR 1 * ? 



9 IS SIGN <4*A*C-Bt2> 
Si voua repondez +1, pour lndlquer que le aigne du 
discriminant est posltif , vous obtenez trois secon- 
de3 plua tard le resultat : 

2*ATAN(2*A*X/ (4«0*C-bI2>4 11/21+B/ <4»A*C-B42)t (1/2) ) 
/ (4*A*C-Bt2)t (1/2) 



que l'on factorial : 

? FCTR (HANS) I 

3 2«ATAN< <B+2*A*X> / <4«A*C-B*2> + <l/2) > / <4*A»C-B* 2>+ < 
1/2) 



Cea quelquea exemplea montrent la aimpliclte d'utlli- 
aation de MUMATH, qui bien au dela de aon caractere 
apectaculalre, peut conatituer un outil precleux qui 
se chargera de tous les calculs laborleux pour les- 
quela un resultat exact doit etre obtenu. 
Cet outil eat notamroent tres attrayant pour l'en- 
seignement (que les professeurs solent rassurea ! 
MUMATH donne les resultats mals pas les solutions). 
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Langage d'un autre type : HUSIMP 

MUMATH est en fait fournl sous forme de programmes 
sources ecrlts en MUSIMP. L'utilisateur dispose done 
en prime de 1' lnterpreteur MUSIMP, ce qui est partl- 
cullerement interessant car cela lui permet de modi- 
fier les fonctions exlstantes, ou d'ajouter ses 
propres fonctions. Le langage MUSIMP est une varian- 
te du langage LISP, bien connu pour ses applications 
en Intelligence Artificielle. LISP peut etre consi- 
dere comme le "langage machine" de 1' intelligence 
artificielle, utilise pour creer des langages plus 
evolues, de la meme manlere que le langage machine 
d'un microprocesseur est utilise pour ecrlre les 
interpreteurs BASIC. 

(Pour ceux qui veulent en connattre plus sur LISP, 
citons notamraent l'ouvrage "Langage d'un autre 
type : LIST" de la collection Mlcro-ordinateurs aux 
editions Eyrolles, particulierement clair et pro- 
gressif). 

Le langage MUSIMP est plus speclalement destine a la 
manipulation des expressions symbollques. II est 
relativement facile a apprendre. Programmons par 
exemple, la fonction BIN (N,M) qui permettra de 
calculer les coefficients du blcone . 

? FUNCTION BIN <N,M>, 
N! /( (N-M) !»M' >, 
ENDFUN « 
La fonction BIN est dorenavant utilisable au merae 
titre que les autres fonctions : 
? BIN (30, 12) | 

3 06493225 

Prenons un exemple un peu plus complique : program- 
mons la fonction TAYLOR qui permet de calculer le 
developpement en serle de TAYLOR d'une fonction 
(EXPN) par rapport a une variable (X), autour d'un 
point (A), a un certain ordre (N) : 

FUNCTION TAYLOR (EXPN, X, A, N, 

7. Local •/. J, C, ANS, NUMNUM, DENNUM), 
NUMNUM: DENNUM I 30, 
Jt ANS: O, 
Cl 1, 
LOOP 

ANS: ANS + C » EVSUB (EXPN, X, A), 
WHEN J=N, ANS EXIT. 
EXPN: DIF (EXPN, X), 
J: J + 1, 
C: C * (X-A) / J, 
ENDLOOP, 
ENDFUN * 

Utllisons cette nouvelle fonction par exemple pour 
determiner le developpement a l'ordre 6 de SIN (X) 
autour de zero : 



TAYLOR (SIN(X), X, 0, 6) I 
9 X*COS(0> - xt2«SIN(0>/2 - X+3«C0SCO)/6 + X»4»SINIO) 
/24 + xts*C0S(0)/120 - Xl6*SIN<0)/720 + SIN(O) 



(10 secondes de calcul) 

La puissance du langage LISP et done de MUSIMP, asso- 

clee a MUMATH, permet de creer virtuellement n'irapor- 

te quelle fonction. 

Malheureusement MUSIMP n'lncorpore pas d'edlteur, 

sans doute pour gagner de la place en memolre lors- 

que le programme est charge : ain3i , pour modifier 

le texte d'une fonction, 11 faut re taper entierement 

sa definition. Sauf si l'on utilise l'editeur exter- 

ne, au prlx de quelques manipulations. 



Les versions de MUMATH 

II existe pour le TRS-80 deux versions de MUMATH : 
la version 3lmpllflee et la version complete. 
La version simplifiee que nous avons testee, est 
livree avec un manuel abrege de 75 pages (en anglais) 



et deux minidisquettes (une disquette pour les sys- 
temes 32K, une autre pour les «8K). 



La disquette pour les aystemea 32K comporte : 

. un module precorapile MATH32/CMD qui comprend 1' ln- 
terpreteur MUSIMP, les fonctions arithmetlques et 
algebriques ainsl que la resolution d' equation. 

. un module de logarlthmes (LOG/ALG) 

. un module de trigonometrie positive (TRGPOS/ALG) . 

. un module de trigonometrie negative (TRGNEG/ALG). 



La disquette pour systeme H8K comporte en plus dans 
son module precorapile MATH18/CMD les fonctions deri- 
vation et integration : 

MATH48/CMD LOB/ALG 

TRGNEG/ALG TRGPOS/ALG 

DEMO/ INT 

Le module DEMO/INT effectue une demonstration dyn»- 
mlque de 1' ensemble des possibilltes de MUMATH. 
Le prix de cette version est de 690 T. 
La version la plus complete de MUMATH est fournie 
avec un manuel de 175 pages. Bile comporte de plus : 
. un module de raise au point (TRACE) pour la pro- 

grammation en MUSIMP. 
. des modules supplementaires permettant le calcul 
matriciel, la manipulation et la resolution d'equi- 
tions, le calcul d'lntegrales definies. 

Bien evidemment MUMATH ne dispose des reasources que 

des modules charges au moment de 1 'utilisation. 

Le module precorapile se charge simplement comme tout 

programme en CMD (taper MATH32 ou MATHH8). 

Les modules (non compiles) peuvent alors se charger 

par des commandes du type : 

? RDS(LOG,ALB) J 

? RDS(TRGPOS,ALG> ; 

? RDS(TRBNE5,AL6> J 

Le module de demonstration, qui necessite au preala- 
ble le chargement des trois modules precedents, se 
charge de la merae maniere : 

? RDS(DEM0, INT) j 

Ces operations de chargement sont relativement lon- 

gues. Le chargement du module LOG/ALG necessite cin- 

quante secondes environ, et celui des modules 

TRGPOS/ALG et TRGNEG/ALG necessite deux minutes pour 

chacun. 

Ce qui demande en tout environ cinq minutes, (non 

non, ce n'est pas une cassette, e'est bien un dis- 

que ! ) . 

D' autre part les temps de calcul de MUMATH varient 

a 1' inverse de l'espace memolre inutilise : les 

modules ne devront etre charges que si necessaire. 



Conclusion 

L'ensemble MUMATH / MUSIMP est un outll tres lmpres- 
3ionnant qui comble une lacune dans le spectre des 
applications possibles des ordlnateurs en general ; 
sa disponibilite sur un 01 bon marche devrait inte- 
resser de nombreux utllisateurs professionnels, 
notamraent ceux qui ont de nombreux calculs sclentl- 
flques. 

La documentation est bonne, mais on ne se sent a 
l'aise qu'apres un minimum de pratique. Le langage 
MUSIMP n'est que soramairement decrit. mais un manuel 
plus complet semble disponible sur commands : je 
pen3e qu'en fait, e'est surtout MUMATH qui lnteresse- 
ra les utllisateurs, et que MUSIMP n'en concerne 
qu'une partie plus reduite. 

A montrer absolument a tous les sceptiques de l'in- 
formatique individuelle qui ne Jurent que par les 
gros systemes ! 

Richard SCHOHBERG 
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La partle se pourault Juaqu'a ce que le Joueur ou 
1 'ordinateur ne pulsse plus Jouer et le gagnant est 
celul qui a obtenu le maximum de points. 

Ce Jeu comporte quatre niveaux de dlfflculte : 

- Niveau \ : L'ordlnateur "reflechlt" peu. 

- Niveau 2 : Identlque au precedent mala 11 y a 
"creation" aleatoire de nombres dans la grille, 
aux places laisseea llbres pendant le cours du Jeu. 

- Niveau 3 : L'ordlnateur "reflechlt" davantage. 

- Niveau 1 : Combinalaon des niveaux 2 et 3- De 
plus, certains nombres "crees" sont inconnus 
(X ou -X). 

Attention : lea slgnes "-" ne dolvent pas etre 

frappes. Pour "prendre" -5 ou -X par exemple, 

f rapper : 5 ou X. 

Le Jeu que noua vous propoaons ici, vous permettra 

d'exercer vos facultes intellectuellea en jouant 



contre l'ordlnateur. Attention : c'est un concurrent 
redoutable et qui ne fait preuve d'aucune pltle ! 

Une grille carree (8 x 8) comporte bt nombres, dont 
l'un est remplaci par des etolles. Cea nombres sont 
toujoura lea mernea au depart, mals leur repartition 
dans la grille eat aleatoire. 

Le Joueur cholsit un nombre sur la LIGNE oil se trou- 
vent les etolles et cellea-ci (que l'on ne volt plus 
a ce moment) remplacent alors le nombre choisl. Lea 
nombres cholsis sont cumules pour former le total du 
Joueur. 

L'ordlnateur Joue de la meme fagon, mala cholsit un 
nombre dana la COLONNE oil ae trouvent lea etoilea, 
determinant alora la nouvelle poaition de cellea-cl. 



Jioger Sawlckl 



10 RANDOM : CLS : DEFINTA-Y DEFSTRZ : DIMA ( 7 7 7 ) 7 Z ( 7 7 7 ) 7 B ( 7 ) : PRINT3 

275;"*** PI A T H I G ***":REMQ8 

20 PRINTa70Si "ATTENTION ! LES SIGNES - NE DOIVENT PAS ETRE TAPES":P 

RINTa5287"NIVEAU 1:27374 "5 : INPUT ZV:REMFE 

30 NV = VAL(ZV) ! IF NV < 1 OR NV > 4 RUN ELSE CLS : FOR I = 22 TO 104 

: SET(l72) : SET(l727) : NEXTI:REM65 
40 FOR I = 3 TO 26 ! SET(22?I) : SET(104iI) = NEXTI : X = RND(7) s Y = 

RND(7) : PRINT355; "NIVEAU"! : PRINT3121 iNV? :REM69 
50 DATA 27-3»8»-l? 12»*>-9» 10?-3>6»-7i-11i14i-1i2i4»-5»2i-3jS?4i iailOi- 
1767-7747 10? -9 7 -5 7 -11 7 2?47 14 ? 27 -378710?- 1 767-7?4.-9767-l 7 2 7 -5 7 8? -13 7 12 
;-l727-3?674?-5 7-l7l6767 12 7-5?8?-3 7-7:REMD8 

60 FOR I = TO 7 : K = I+X-8*I NT ( ( I+X ) /8) : FOR J = TO 7 : L = J+Y- 
8*INT( (J+Y)/8) : READ A(K ? L) : PR INTa78+5*I + 64*J 1 " . " ? • NEXTJ 7 1 ! FOR 
I = TO 7 : FOR J = TO 7:REIi71 

70 VA=A(l7J) : PPINT377+5*I+64*J-INT<ABS(VA/10) ) ;VA; : NEXTJ7I : U = R 
ND(8)-1 : V = RND(8)-1 : PR INTa76 + 5*U + 64*V 7 " *** "S : A(U?V> = 0:REM11 



80 PRINTa66iEE+FFi : PRINT3Q ? "P ARTIE" 5 

65 

90 PRINT31947EE5 : PR INT3128 7 "PERDUE" ; 

E 

100 PRINTa322;FF5 : PR INT3256 ; "GAGNEE" 5 

21 

110 PRINT3905? "VOS POINTS : 

V0ULEZ-V0US C0MMENCER (1) ";:REM25 

120 INPUT ZK : FOR I = TO 29 : PRINT3713+I? 



IF EE+FF > 1 PRINT36? "S"; :REM 

IF EE > 1 PRINTai347"S"; :REM0 

IF FF > 1 PRINTa2627"S"; :REM 

ORDINATEUR : " S : PRINT37137 1 ' 



IF ZK <> "1" PRINT 



376+5*U+64*V7 " . "\ : GOTO 190:REMF9 

130 FOR I = TO 7 : IF ft(LiV) <> THEN 150ELSE NEXTI : PR INT37 13 7 " V0 

US NE P0UVEZ PAS JOUER ";:REM18 



42 — TRACE N° 2 — Avril 82 



140 FOR I = i TO 150 : NEXTI ! IF 3 = 1 THEN 450ELSE Q = 1 : GOSUB 360 

: GOTO 190:REMD9 

150 PRINT376+5*U+64*V7 " *** "i : Q = : PRINT3713 7 "VOUS JOUEZ HORIZON 

TALEMENT " : INPUT ZC : IF ZC = "X" THEN 170:REMA3 

160 C = VAL(ZC) : IF C = THEN 150ELSE FOR I = TO 7 : IF ABS<AU?V) 

) <> C NEXTI : GOTO 150ELSE 180:REM90 

170 FOR I = TO 7 : IF Z(I ? V) <> "X" NEXTI : GOTO 150ELSE Z(I;V) = " 

":REM83 

180 GOSUB 360: U=I : E = E+A(U 7 V) : PR INT3851 i A( U i V) ; : A(U ? V) = : P 

RINT39187E; : GOSUB 360:REM86 

190 FOR I = TO 26 : PRINT3713+I ? " " : NEXTI : FOR I = TO 7 : IF A ( 

U;I) <> THEN 220:REM9D 

200 NEXTI : FOR I = 1 TO 3 : FOR J = 1 TO 19 : PRINT3720 7 "PASSE" ; : NE 

XTJ : FOR J = 1 TO 10 : PRINTa7207" "; : NEXTJ 7 1 :REM2C 

210 IF Q = 1 THEN 45DELSE Q = 1 : GOSUB 360: GOTO 130:REMOO 

220 Q = : IF NV > 2 THEN J = -1 : GOTO 280:REM12 

230 N = -20 : FOR I = TO 25 : PR INT3713+I : " "' • NEXTI :REM08 

240 FOR I = TO 7 : IF A(U7l) <> AND A(U7l) > N THEN T = I : N = A( 

U7I) :REM09 

250 NEXTI :REM36 

260 F = F+N : PRINTS9447F; : P = 76+5*U+64*T : FOR I = 1 TO 3 : FOR J 

= TO 10 : PRINT3P+17N; : NEXTJ:REM5D 

270 FOR J = TO 10 : PRINTaP?" *** "; : NEXTJ7I : V = T : A(U?V) = 

: Z(U ? V) = " " : GOSUB 360: GOTO 130:REME9 

280 J = J+l : IF J > 7 THEN 330:REM02 

290 IF A(U7J) = B(J) = -99 : GOTO 280:REM99 

300 B(J) = A(U ? J) : N = -50 : FOR I = TO 7 : IF A( I 7 J ) = OR I = U 

NEXTI : IF A(U?J) > T = J : GOTO 350ELSE B(J) = -50:REM52 

310 FOR I = TO 7 : IF I <> U AND A ( I 1 J ) > N THEN N = A(l7J):REM72 

320 NEXTI : B(J) = B(J)-N :GOTO 280:REMA9 

330 N = -99 : FOR I = TO 7 : IF B ( I ) > N THEN N = B(I) : T=I:REM19 

340 NEXTI:REMDB 

350 FOR I = TO 7 : B(I) = : NEXTI : N = A(U?T) : GOTO 260:REM96 

360 PRINT376+5*U+64*V7 " . "' : IF NV = 1 OR NV = 3 RETURN:REM59 

370 B = RND(IO) : D = RND(8)-1 : G = RND(8)-1 : IF B/NV = INT(B/NV) OR 

A(D 7 G) <> OR D = U OR G = V RETURN :REM30 
380 S = RND(10)*2+1 : FOR R = TO 7 : IF ABS(A(RjG)) = S OR ABS(A(D?R 
) ) = S THEN 380:REM76 

390 NEXTR : A(D ? G) = S : 00 = 77+5*D+64*G-INT ( (2+S) / 12 ) : XX = RND<3) 
: IF NV <> 2 AND XX <> 1 THEN 410ELSE FOR SS = 1 TO 4:REM98 
400 FOR H = 1 TO 5 : PRINTaOO?" "5 : NEXTH : FOR H = 1 TO 5 : PRINT 
a007S5 : NEXTH.-SS : RETURN:REMOA 

410 FOR II = TO 7 : IF Z(II?G) = "X" THEN 380:REM0A 

420 NEXTH : 00 = 78+5*D+64*G : FOR S = 1 TO 4 : FOR H = 1 TO 5 : PRIN 
Ta00 7 M "5 : NEXTH : FOR H = 1 TO 5 : PR INT300 7 "X " ; : REM7E 
430 NEXTH7S : YY = RND(2>*2-3 : A<D7G) = A(D?G)*YY : Z(D7G) = "X" : IF 

YY = -1 PRINTaOO-1?"-"" :REMFA 
440 RETURN:REMB5 
450 PRINTa7057 u VOUS AVEZ "; : IF E < F PR INT3725 7 "PERDU ! 

"; : EE = EE+1 : GOTO 470:REMF8 
460 PRINTa725 7"GAGNE ! " 5 : FF = FF + 1:REM50 

470 FOR I = TO 7 : FOR J = TO 7 : Z ( I 7 J ) = " " ! NEXTJ 7 I : PRINT37 
33;" "?:REMB7 /^"^s. 

480 PRINTa7687"P0UR UNE AUTRE PARTIE 7 QUEL NIVEAU "::REM3E AV"~"N N 
490 INPUT ZV : E = : F = : RESTORE : GOTO 30:REMDF \ '^^- 
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materie] 



Modele 1, modele 3, 

quelles 
differences ? 




1 - LE MATERIEL 

La premiere difference entre le modele 1 et le mode- 
le 3 se remarque immediatement en regardant les deux 
machines : la premiere est un systeme modulaire, les 
divers modules etant relies par des cables, peu 
esthetique et souvent a la source de mauvais 
contacts, alors que la deuxieme a une presentation 
integree plus fiable, plus pratique si l'ordinateur 
doit etre transports frequemment, et prenant molns 
de place. En outre le raccordement au secteur d'un 
modele 3 necessite beaucoup moins de prises de cou- 
rant qu'un modele 1, l'unite centrale, l'ecran video 
et les deux premiers lecteurs de disquettes etant 
relies ensemble. 

Aucun changement par contre dans les diverses capa- 
cites de memoire centrale proposees: la version 
minimale est IK, puis on trouve des versions de 16K, 
32K ou U8K. Le passage du modele 3 a 32K ou «8K ne 
necessite plus d' interface d' extension, mais les 
supports des circuits de memoire additionnels sont 
directement prevus sur le circuit imprime. 



Le micro-processeur est tou Jours un Z80, mais sa 
Vitesse de travail est 2 MHz au lieu de 1,77 MHz, 
ceci pouvant creer des problemes pour les programmes 
travalllant en temps reel avec des boucles de tempo- 
rlsation extremement precises. 



L'ecran video est de la meme taille que celui du 
modele 1, aolt 12 polices (30 cm), mais n'est actuel- 
lement fournl qu'en noir et blanc. 



Le clavier est parfaitement ldentique sur les deux 
modeles : 53 touches sur le clavier principal plus 
un clavier numerique de 12 touches. Une amelioration 
notable : la touche RESET n'est plus cachee a 
l'arriere de la machine, mais bien visible sur le 
dessus du clavier (peut etre un peu trop ! car cela 
n' incite pas a la prudence). 

Le magnetophone a cassettes n'est plus fourni en 
standard comme c'etait le cas du modele 1, mais il 
peut etre achete en option. 

L' interface parallele pour imprimante est fournie, 
meme en version de base, la connexion etant falte 
par un cable simple, sans interface. Ceci permet 
aux possesseurs de 1 6K de connecter une imprimante, 
sans pour cela augraenter le prix. Par contre 
1' interface serie RS232C reste en option. 



Le modele 3 peut etre equipe de lecteurs de mini- 
disquettes 13 cm au nombre maximum de I), les deux 
premiers ayant leur place reservee dans la machine 
a drolte de l'ecran, le3 deux suivants etant places 
a l'exterieur et relies a l'unite de controle par 
un cable. 

Le modele 3 est equipe en standard d'une horloge 
interne, alors qu'elle n'etalt que dans 1' interface 
d 'extension du modele 2. 
2 - LES CARACTERISTIQUES 

L'affichage peut se falre en deux modes ; 16 llgnes 
de 64 caracteres ou 16 lignes de 32 caracteres selec- 
tables par logiciel (PRINT CHR$ (23)) corame sur le 
modele 1. Par contre, le jeu de caracteres fournl a 
ete serieusement remanie : on dispose maintenant des 
majuscules et des minuscules a l'ecran en standard, 
alors que pour obtenir les minuscules avec un modele 
1, il faut ajouter un kit a l'interleur de la machi- 
ne. Les 32 premiers caracteres, dont les numeros 
ASCII vont de a 31 sont des codes de controle 
lorsqu'ils sont utilises dans une instruction PRINT, 
mais deviennent des caracteres lorsqu'ils sont places 
dans la RAM ecran par une instruction POKE (voir 
photo n° 1). 




Les caracteres dont le numero ASCII vont de 192 a 
255 representent normalement lea codes de compression 
d'espaces, comme sur le modele 1, mais deux instruc- 
tions, PRINT CHR$ (21) et PRINT CHR$ (22), permettent 
de passer solt a un Jeu de caracteres semi-graphi- 
ques (voir photo n° 2), solt au Jeu des caracteres 
japonais KANA (voir photo n° 3). Le reste des carac- 
teres est le jeu ASCII standard sauf le n" 127 qui 
est + (voir photo n" H) . 

Le caractere representant le curseur peut etre chol- 
si par programme et peut etre fixe ou clignotant. 
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Par exemple POKE 16412,1 permet d'avoir le curseur 
fixe alors que POKE 16413,0 permet d'avoir un cur- 
seur clignotant, pour changer le curseur : 
POKE 16419.X oil X est le numero ASCII du caractere 
choisi. 

Le modele 3 offre aussi la possibility de proteger 
Jusqu'a 7 lignes contre le "scrolling". Pour prote- 
ger 4 lignes il suffit de mettre 1' instruction 
POKE 16916,4. 

L' interface cassette a ete modifiee pour permettre 
la lecture a deux vitesses : 500 et 1500 bauds. La 
vitesse lente permet a un modele 3 de lire des 
cassettes enregistrees pour modele 1. La selec- 
tion entre les deux vitesses peut se falre soit a 
l'allumage de la machine (CASS ?) soit plus tard en 
utillsant un POKE 16913,0 ou 1. Les codes erreurs 
donnes lors du chargeraent d'une cassette sont main- 
tenant : C* ,'chechsum error' qui sanctionne une 
erreur de chargement d'une cassette system, 
D*, 'Data error' qui notifie une erreur dans un 
programme Basic, BK, qui apparalt lorsque l'utilisa- 



teur a appuye sur la touche BREAK pendant un charge- 
ment. Le clignotement de la seconde etolle se fait 
maintenant tous les 64 caracteres, alors que 3Ur un 
modele 1, il se fait toua lea 256 caracteres en 
"system" et a chaque fin de ligne en Basic. II sem- 
ble qu'll n'est pas possible de brancher un second 
magnetophone a cassettes comme sur un modele 1 . 

L' interface imprimante a recu aussi quelques amelio- 
rations : 11 eat possible de specifier la longueur 
maximum d'une ligne, de falre une recopie de l'ecran 
en appuyant sur les 3 touches SHIFT 1 et • simulta- 
nement, d'arreter cette recopie en appuyant sur la 
touche BREAK (on peut aussi prof iter de cette possi- 
bility dans un programme Ba3ic ou langage machine). 

Les sous-programmes elementalres de gestlon de 1' in- 
terface serle RS232C sont en memoire raorte, et para- 
metrables, alors que sur le modele 1, lis sont char- 
ges en memoire vive depuis une cassette avec 1' inter- 
face. 

Le modele 3 permet en principe (en fait, cela ne 
marche pas du tout en version diaque) de deriver la 
sortie de caracteres d'un peripherique vers un autre. 
Les peripheriques pouvant etre. deroutes sont le 
clavier, KI. l'ecran, DO, 1 ' imprimante, PR, la 
RS232C en emission, R0 et la RS232C en reception, ^ RZ. 
Par exemple pour envoyer les caracteres destines a 
l'ecran sur 1' imprimante : 

POKE 16930, ASCC'D") : POKE 16931, ASC("0") 
POKE 16928, ASCO'P") : POKE 16929, ASCC'R") 
POKE 16526, 108 : POKE 16527,0 : X=USR(0). 

De 1' etude qui precede, on peut dedulre que le mode- 
le 3 represente une bonne amelioration du modele 1 . 
en off rant aux utilisateurs de l6K Cassettes des 
posslbilites qui Jusque la etalent reservees aux 
possesseurs de modele 1 equipe de lecteurs de dis- 
quettes. 



3 - LA COMPATIBILITE EN BASIC 

Le Basic du modele 3 est exactement semblable a celul 
du modele 1 . Ceci permet de supposer que tous les 
programmes ecrits en Basic pour le modele 1 peuvent 
tourner sans aucune modification sur le modele 3 (a 
condition toutefois qu'll n'y ait pas dans le pro- 
gramme de PEEK ou de POKE "bizarres" I). 
De meme tous les programmes Basic ecrits pour le 
modele 3, mals ne profitant pas de nouvelles possl- 
bilites (enreglstrement a 1500 bauds, Jeux de carac- 
teres nouveaux, ...) pourront tourner sur un modele 
1. La seule exception envlsageable sont les program- 
mes Basic qui utlllsent lea deux magnetophones auto- 
rises par un modele 1 avec interface d 'extension. 



Le seul ajout que l'on peut constater au Basic du 
modele 3 est du au fait qu'il possede en standard 
une horloge interne. La variable TIME$ (connue des 
possesseurs de modele 1 disk) est maintenant utili- 
3able, mais la remise a l'heure ou a la date se fait 
par des POKEs (car 1' horloge est inltiallsee a 
00/00/00 et 00:00:00 a l'allumage). 



4 - LA COMPATIBILITE EN LANGAGE MACHINE 



Puisque le modele 3 semble parfaitement compatible 
avec le modele 1 en Basic, on peut se demander s'il 
en est de meme pour les programmes ecrits en langage 
machine. Pour assurer cette compatibility il faut 
que les prlncipales adresses des sous-programmes en 
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ROM soient inchangees. Les adresses principalea sont 
celles perraettant la geation de l'ecran, du clavier, 
de l'imprlmante, du magnetophone. 

La geation de l'ecran 

La memoire reservee a, l'ecran video eat aituee de 
3C00H a 3FFFH sur lea deux modeles. Pour afficher un 
caractere a l'ecran, 11 y a plusieurs formulea iden- 
tiquea sur les deux modelea : un LD direct, un CALL 
0033H, avec le numero ASCII du caractere dans le 
registre A, celui-ci etant affiche a la position 
lndlquee par lea cases memoires 1020H-H021H, ou un 
CALL 33AH qui outre l'afflchage du caractere deter- 
mine aussl la position du curseur dans la ligne et 
le stocke dans 10A6H. 

Pour effacer l'ecran on peut faire appel au CALL 
01C9H. Toutefoia seul le modele 3 peut afficher un 
message entier par un CALL 021BH. 

La ge3tlon du magnetophone 

Si la geation de l'ecran et du clavier aemblent a 

peu pres semblable, sur les deux modeles, il n'en 
va pas tout a fait de meme pour la geation du magne- 
tophone. II exiate quelques differences et 11 ae 
pourralt que quelques cassettes bien protegees du 
modele 1 refusent de charger sur un modele 3. 

Pour mettre en route le magnetophone, sur un modele 
1, on peut utiliser pluoieurs techniques. La plus 
aimple etant de placer dana le registre A le n° du 
magnetophone (0 ou 1) et CALL 0212H, ou encore pour 
le magnetophone n° 1, LD HL,0 CALL 01FEH. Pour 
arreter le magnetophone : CALL 01F8H. 

Sur le modele 3, tous ces sous-programmes sont inu- 
tllea, puiaqu'il n'y a plus qu'un seul magnetophone. 
Par soucl de compatibility, on peut toujours faire 
appel au CALL 0212H, mais cela ne fait pas grand 
chose (XOR A RET), 1' arret du magnetophone etant 
maintenu a CALL 01F8H. 

Pour la lecture des cassettes, nous avDns besoin de 
deux sous-programmes l'un llsant le "leader" (256 
zeros + A5H), CALL 0296H, l'autre permettant la lec- 
ture d'un octet, CALL 0235H. 

Pour l'ecriture des cassettes, nous avons aussl 
besoin de deux sous-programmes : l'un ecrivant le 
"leader", CALL 0281H, l'autre ecrivant un octet, 
CALL 0264H. 

Sur lea deux points, les deux modeles sont en accord, 
par contre certains sous-programmes tela que CALL 
0241H, lire un bit, ou CALL 01D9H, ecrire un bit, 
sont deplacea sur le modele 3- Le sous-programme 
permettant de faire clignoter une etoile en haut et 
a drolte de l'ecran qui dans le modele 1 s'appelle 
par CALL 022CH a ete deplace, a la place on trouve 
un XOR A ,RET. 

La gestlon du clavier 

La memoire reservee au clavier eat sltuee de 3800H a 
3BFFH sur les deux modeles, la matrice de codage 
etant la meme. Pour acquerir un ou plusieurs carac- 
teres du clavier le modele 1 et le modele 3 ont les 
memea soua-programmes : le premier, qui eat equiva- 
lent au INKEY du Baaic est CALL 002BH. Le aecond, 
CALL 0O49H, explore le clavier et attend que l'utlli- 
aateur ait appuye aur une touche. Le troiaieme, 
CALL 0040H ou CALL 05D9H, est equivalent au INPUT du 
Basic, il permet l'entree d'une chaine de caracteres. 

Le modele 3 possede un sous-programme supplemental re 
qui permet un test tre3 rapide du clavier detectant 
uniquement l'appul sur la touche BREAK par un CALL 
028DH. 



La gestlon de l'imprlmante 

La gestlon de l'imprlmante est faite tres dlfferero- 
ment sur le modele 1 et sur le modele 3 : le premier 

a l'imprlmante implantee en memoire a l'adreaae 
37E8H alors que le second se sert du port de sortie 
0F8H (qui n'est pas le meme que celui du Video-Genie 
0F0H !). Les programmes gerant directement l'imprl- 
mante, sans passer par les soua-programmea en ROM, 
ne seront pas compatibles. Par contre le aous-pro- 
gramme permettant d'envoyer un caractere a l'imprl- 
mante, CALL 003BH est utilisable sur les deux mode- 
les. De meme, pour tester le statut de l'imprlmante, 
on peut utiliser LD A,0 et CALL O038H, le statut est 
alors renvoye dana le regi3tre A. 

En supplement, le modele 3 permet d'envoyer le conte- 
nu de l'ecran sur imprlmante par CALL 01D9H, alors 
que sur un modele 1 , 11 faut un programme supplemen- 
taire. 

Les autres points d' entree 

II est evident que dans une ROM falsant 12K (modele 
1) ou 11K (modele 3), il y a enormement de sous-pro- 
grammes et les tester tous est un gros travail. Lea 
points d' entree et les sous-programmes auivanta aont 
compatiblea entre lea deux modeles : 

JP 0000H : est equivalent a un RESET 

JP 1A19H : est le point d'entree du Baaic (READY) 

CALL 0060H : permet de faire une boucle d'attente, 

le temps etant controle par le reglatre BC. Lea deux 

modeles travaillant a dea vltessea differentes, 11 

se peut que lea delaia ne soient pas exactement iden- 

tiquea. 

Parrai les sous-programmes mathematiquea, l'auteur a 

pu constater que les suivants aont parfalteraent 

compatibles entre les deux modeles : 

CALL 0E65H : conversion ASCII — * Binalre 

CALL 0FBDH : conversion de FPA 1 en ASCII 

CALL 0AB1H : conversion de FPA1 en simple precision 

CALL 070BH : (HL) + FPAl dana FPA! 

CALL 0713H : ( RFPA + FPA 1 ) dana FPA1 

CALL 0847H : (RFPA • FPAl) dans FPA1 

CALL 08A2H : (RFPA / FPAl) dans FPAl 

CALL 09C2H : (HL) dans RFPA 

CALL 09CBH : FPA1 dans (HL) 

CALL 09B1H : (HL) dana FPAl 

CALL 09BFH : FPAl dans RFPA 

CALL 09A1H : FPA1 sur la pile 

CALL 0A0CH : comparaison de RFPA et FPAl 

CALL 0982H : change le slgne de FPAl 

CALL 13E7H : prend la raclne carree de FPAl 

CALL 0977H : prend la valeur absolue de FPAl 

(ces sous-programmes sont ceux utilisea par le 
programme de resolution d'une equation du second 
degre donne dans le livre THE BOOK - volume I). 

II y a surement beaucoup d' autres sous-programmes 
compatibles (ou non compatiblea ! ) entre les deux 
modelea. Cue les lecteurs nous tiennent lnformes de 
leurs decouvertea. 
5 - CONCLUSION 

De tout ce qui precede on peut conclure que lea 
deux modelea de TRS-80 ne aont pas 100 % compatibles, 
mais que beaucoup de programmes du modele 1 pourront 
tourner sur un modele 3. 

Si vous voulez acheter des programmes pour un mode- 
le 3. vous devrez verifier qu'ils peuvent effective- 
ment tourner, les grands fabrlcants l'indlquant 
toujours. Dans le doute, n'hesltez pas a demander 
aux vendeurs de tester le programme sur un modele 3. 
Les programmeurs voulant ecrire dea programmea 
compatiblea devront faire attention a respecter lea 
pointa d'entree communs aux deux modeles, et dana 
toua les cas de les tester sur les deux modeles ! I 



Jean-Luc Berardo 
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statistiques. 



Un programme 
pour mieux 
prevoir 




En mathematiques, on appelle ajustement - ou lissa- 
ge - la technique consistant a determiner 1' equation 
theorique d'une courbe a partir d'un nuage de points. 
En partant des couples de donnees annee/prix du 
beurre par exemple, on peut en dedulre l'allure gene- 
rale de la courbe correspondant a 1 'evolution du 
prix du beurre au fil des annees : 




De la meme maniere, on peut mettre en equation 1 ' evo- 
lution, des loyers, de 1' essence ou des salaires. 
Corame il est de regie en calcul des statistiques, 
plus il y aura de couples, meilleure sera la preci- 
sion. 

En general, la plupart de ces phenomenes evolutifs 
peuvent se classer selon quatre fonctions determi- 
nees par quatre equations : 



lineal re 


Y = A + B X 


exponentielle 


Y = A EXP ( B« X ) (ou A* e tBX) 


logarithraique 


Y = A + Ln X (Ln = log neper ien) 


puissance 


Y = A X t B 



A et B sont les coefficients des equations. 

Le programme qui suit determine, a partir des cou- 
ples de donnees, les coefficients de ces quatre 
equations et precise quelle est la meilleure appro- 
ximation au moyen de ce que l'on appelle en statis- 
tiques le coefficient de correlation : plus sa 
valeur est proche de 1, meilleure est l'approxima- 
tion. II est ensuite possible de faire une estima- 
tion en ne donnant que l'une des valeurs d'un couple 
(X ou Y), le programme calculant une estimation de 
l'autre valeur. 

Exemple : 

En 1970, je gagne 1000 francs, en 1971 : 1200 francs, 
en 1972 : 1500 francs et en 1973 : 2000 francs. 

Combien puis-Je esperer gagner en 1971 7 en 1980 7 

(A ce propos, les lecteurs reussissant a faire tenir 
ce programme sur poquette sont pries de nous en 
informer : c'est raoins encombrant pour s'expliquer 
avec son superieur hierarchlque !). 

Deux ans plus tard, mes salaires 71 et 75 sont res- 
pectivement : 2200 et 2100. Quelle est 1' approxima- 
tion pour 1980 7 

(Voir les reponses dans 1' execution ). 




Jean-Pierre du Tillet 
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<<< AJustements de eourbes >>> 



Les elements des couples doivent etre > a 0. 
Frapper xia pour introduire un couple? 
Rx?a pour retirer le dernier introduit si erreur i 
F?F pour arreter 1 ' introduct ion. 



Couple X»Y numero 1 :? 70; 1000 

Couple X»Y numero 2 s? 71. 1200 

Couple X;Y numero 3 :? 72; 1500 

Couple X;Y numero 4 :? 73;2000 

Couple XiY numero 5 : ? F>F, 



fin "i^oo/uj/,; 



«>*1 





Calcul des differents aJustements: 

-AJustement lineaire : coeff de correl . = .959471 

Equation: Y=-22170 + 330 X 

-AJustement exponentiel : coeff de correl. = .989663 
Equation: Y= 9.74119E-05 EXP .230273 X 

-AJustement loaar i thmi que : coeff de correl. = .966299 
Equation: Y=-1D0148 + 23789.9 I_N X 

fc■■»i■»•tt■■•■■••■■"■•■■■■••■••■•■■■■•■■■■■■••• # ••••"■■•■" , 

-AJustement puissance : coeff de correl. = .996454 
Equation: Y= 2.29823E-28 XL 16.5984 

Le meilleur aJustement est 

Suite introduction? N. 

Estimation X 0U Y (ou Introduction ou Stop)? Y_ 

Estimation aJustement puissance 

valeur de X? 7_4_ 

pour X eaal 74 7 Y eaal £2441.7_ 

Estimation X 0U Y ( ou IntrflBuct ion ou Stop)? Y 

Estimation aJustement puissance 

valeur de X? 8Q 

pour X e3al 80 » Y eaal (8906, 

Estimation X 0U Y (ou Introduct ion ou Stop)? 

Estimation aJustement puissance 

Suite introduction?^ 

Couple XiY numero 5 :? 74>22QQ 

Couple X ( Y numero 6 :? 75>2400 

Couple X;Y numero 7 :? FTFT 

Calcul des differents aJustements: 

-AJustement lineaire : coeff de correl. = .979274 

Equation: Y=-20033.3 + 300 X 

-AJustement exponentiel : coeff de correl. = .967211 
Equation: Y= 2.40229E-03 EXP .18524 X 

-AJustement loaar i thmi que : coeff de correl. = .983783 

Equation: Y=-91808.3 + 21834.7 LN X 

-AJustement puissance : coeff de correl. = .972735* 
Equation: Y= 1.31662E-22 XC 13.4897 

Le meilleur aJustement est (foaar i tl imTgy g? . 
Suite introduction? N. 

Estimation X 0U Y (ou Introduction ou Stop)? X. 

Estimation aJustement 1 oaari thmi que 

valeur de X? SJL ^ ( fcoF" / 

pour X eaal 80 > Y eaal ( 3872. 14) 

Estimation X 0U Y (ou Introduct ion ou Stop) 7 S 

READY — 

> 
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10 ' (C> TRACE et l'auteur Fib 

20 ' EC 

30 CLS : PRINT TAB! 15) "<« AJUSTEMENTS DE COURSES >>>":REM86 

40 PRINT TABI15) STRINGS (30iCHR»( 131) ) i PRINT:REH6E 

50 PRINT "LES ELEMENTS DES COUPLES DOIVENT ETRE > A 0."iREM7A 

60 PRINT TRAPPER Xi¥ POUR INTRODUIRE UN COUPLEi" 

70 PRINT "RX.Y POUR RETIRER LE DERNIER 1NTR0DUIT SI ERREUR > " :REH39 

80 PRINT "F,F POOR ARRETER L' INTRODUCTION. "IREM64 

90 PRINT : CLEAR 500 ! DIM P(13)iREHA4 

100 ' 9C 

110 ' INTRODUCTION DES COUPLES 92 

120 ' 88 

130 PRINT "COUPLE X.Y NUMERO" i N+l ! "i" tiREH92 

140 INPUT XS . Y« I Y«VAL(YS>:REM9B 

130 IF XS>"F" THEN 270:REM9D 

140 IF LEFTS(XS.1)»"R" THEN 220 ELSE X-VALl X») : REM28 

170 N=NH : SX«SX*X : SY=SY*Y : X2=X2*X«X IREM61 

180 Y2»Y2*Y«Y : M1»L0G(Y> I XL=XL*X«M1 :REM34 

190 LY»LY*IU : CY=CY+H1«H1 :REMF? 

200 M2=L0G(X> i VL=YL»Y»M2 : LX=LX*M2 :REMEC 

210 CX«CX*H2tM2 : LL=LL+M1*M2 : XY=XY*X»Y i GOTO 130:REn98 

220 X»VAL<MID*<X«72>) I N-N-l : SX=SX-X 1 SY=SY-Y:REMC9 

230 X2=X2-X»X : Y2-Y2-Y«Y I H1=L0G(Y) I XL-XL-X»H1 :REH90 

240 LY=LY-M1 i CY=CY-M1*N1:REMC5 

230 N2=L0G(X> t YL-YL-Y»H2 : LX=LX-H2iREMB8 

260 CX=CX-M2«M2 « LL=LL-M1»M2 : XY"XY-X»Y I GOTO 13DIREH62 

270 PRINT : PRINT "FIN D' INTRODUCT ION DES DONNEES. ":REMOF 

280 PRINT "CALCUL DES DIFFERENTS AJUSTEMENTS: ": REMEA 

290 RESTORE : PR1NT:REM61 

300 ' D3 

310 ' CALCUL DES 4 AJUSTEMENTS C9 

320 ' BF 

330 FOR AA=1 TO 4:REMBB 

340 ON AA GOSUB 770: 780 . 790>800=REMFE 

350 GOSUB 680IREM72 

360 NEXT AA:REM8E 

370 P(0)=0:REMB7 

380 FOR A=3 TO 12 STEP 3sREM9A 

390 IF P(OXPIA) THEN P(0>=P(A) ' P=A!REM6F 

400 NEXT : RESTORE IREM1E 

410 FOR A'l TO P/3:REM8D 

420 READ A* • B* . C«:REM46 

430 NEXTiREMCA 

440 ' 47 

1,30 ' CONCLUSIONS 3D 

470 PRINT "LE MEILLEUR AJUSTEMENT EST " i A« ; "."iREMOA 

480 INPUT "SUITE INTRODUCTION" ! R*:REM75 

490 IF LEFTSIRS, l)-"0" THEN 130JREMA4 „__» 

SOO INPUT "ESTIMATION X OU Y (OU INTRODUCTION OU STOP) ; R«:REMBA 

510 IF LEFTS<RS,1)="S" THEN ENDiREMAO 

520 ON P/3 GOSUB 770 . 780 . 790 . 800:REM78 

530 PRINT "ESTIMATION AJUSTEMENT " ! ft«iRE"59 r „„ „,_,„„,,, 

540 IF R»»"X" THEN INPUT "VALEUR DE Y" t VY : GOTO 840:REMD7 

550 IF RS»"Y" THEN INPUT "VALEUR DE X" ! VX : GOTO 930:REMCE 

560 GOTO 480IREP1A5 

570 ' C4 

580 ' CALCUL DES PARAMETRES BA 

390 ' BO 

600 NB=B1-B4»A1/N : B=NB/ ( B3-B4*B4/N> (REMOD 

61D R=B*NB/<Rl-Al»Al/N)sREM91 

620 A=(A1-B«B4)/N 1 IF P(0>*4 OR P(0)=10 THEN A«EXP ( A) :REM77 

630 P(P(0))=B : P(P<0)*1)=A : P f P (0 ) *2> =R :REM6D 

640 RETURN:REMEC 

650 ' 74 

660 ' AFFICHAGE DE L' AJUSTEMENT 6A 

670 ' 60 

680 READ AS > B* > CSIREM41 

690 PRINT "-AJUSTEMENT " i AS ! ":" . "COEFF DE CORREL. =" I R:REMB5 

700 PRINT ."EGUATIONi Y=" ; A ; BS i B ; CS:REMAE 

710 PRINT STR1NGSI60.CHRS1131)) :REM02 

720 RETURN:REM9C 

730 ' 24 

740 DATA LINEAIRE . ♦ . X . EXPONENTIEL . EXP . X:REM5A 

750 DATA L0CARITHMI8UE , * > LN X . PUISSANCE . XI r!REM56 

760 ' 06 

770 PI01M : B1 = XY : B3=X2 : B4 = SX : A1 = SY ■■ R1 = Y2 : GOSUB 600 : RETURN:REM3C 

780 P(0)=4 : B1=XL : B3=X2 : B4 = SX : A1 = LY I R 1-CY i GOSUB 600 I RETURNIREM32 

790 P(0)=7 i B1 = YL : B3*CX : B4-LX : A1 = SY : R1-Y2 : GOSUB 600 : RETURN:REM24 

SOO P(0)=10 s Bl-LL : B3-CX : B4-LX : Al-LY i R1 = CY i GOSUB 600 i RETURN:REMF3 

810 ' D3 

B20 ' ESTIMATION DE X C9 

830 ' BF 

840 ON P/3 GOSUB 860 . 870 . 880 . 890IREM2E 

850 PRINT "POUR Y EGAL" : VY i " . X EGAL" ! VX : GOTO 500:REMB2 

860 VX ■= (VY - A) / B : RETURN:REM31 

870 VX = LOG (VY / A) / B : RETURN:REM46 

880 VX = EXP ( <VY-A) / B > : RETURN:REMEC 

890 VX ■ (VY/A) I (1/B) : RETURN:REMBE 

900 ' 79 

910 ' ESTIMATION DE Y 6F 

920 ' 65 

930 ON P/3 GOSUB 950 ; 960 > 970 . 980=REMD4 

940 PRINT "POUR X EGAL" ! VX ; ", Y EGAL" ! VY : GOTO 500:REM58 

950 VY - A ♦ B » VX : RETURN:REM2A 

960 VY = A » EXP (B • VX) : RETURN:REHEB 

970 VY = A + B » LOG (VXI : RETURN:REMEb 

980 VY = A » (VX I B) : RETURN:REMB7 
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langage. 




Le COBOL, en tant que langage de programmation le 
plus utilise en gestlon, est credlte d'un certain 
nombre d'avantages, qui sont notamment la transpor- 
tability, 1< adaptation speclflque au traitement de 
problemes de gestlon, la bonne llsibllite des pro- 
grammes qui facllite la maintenance. 

. Transportability 

Le COBOL, comme le BASIC, et malgre sa normalisation, 
possede un certain nombre de "dialectes". Son evolu- 
tion, a travers dlfferentes versions, a amene des 
modifications pas toujours compatibles entre elles. 

Certaines particularity du langage sont lieea au 
type de machine utilise ou a 1 'envlronnement peri- 
pherique. De plus, le COBOL est constitue d'un 
certain nombre de modules, qui pour une version 
donnee, peuvent etre presents ou non. 



Cecl montre qu'en fait la portablllt 
COBOL est loin d'etre assuree, et c 
lea possibllltes de ce langage, que 
son installation sur les ordinateurs 
automatiquement ouvrlr la porte a un 
rable de programmes exlstants. Dans 
cas un eTfort de conversion importan 
falre, sans compter que la majorlte 
COBOL existant actuellement, n'a pas 
des systemea lnteractifs ; de meme, 
plus recenta gerent des terminaux et 
clavier/ecran faisant directement pa 
nateur . 



e complete du 
est surestimer 
d'af firmer que 

lndlviduels va 

nombre conside- 
le meilleur des 
t restera a 
des programmes 

ete ecrite pour 
les programmes 

non pas un 
rtie de l'ordl- 



II Taut souhalter le developpement d'un standard 
COBOL pour les ordinateurs lndlviduels afln de pou- 
volr compter sur les avantages d'une certaine trans- 
portability des programmes. 

. Adaptation aux problemes de gestlon 

Sur ce plan le COBOL a lndenlablement des atouts. 

Quelles sont les facilltes attendues pour realiser, 

dans de bonnes conditions, des programmes de 
gestlon ? 



Essentlellement une presentation des resultats qui 
aolt facllement llaible et comprehensible pour l'uti- 
lisateur non informaticien ; c'est-a-dire, des ronc- 
tlons de raise en page et de controle exact du format 
des valeurs numeriques sont d'une importance prlroor- 
diale. 

Icl le COBOL montre tous ses avantages. La longueur, 
le cadrage et le format de chaque rubrique sont par- 
raitement et facllement controlables, alnsl que, pour 
les valeurs numeriques, le nombre de declmales en- 
tieres et fractlonnalres. La precision des resultats 
est absolue. II n'existe pas d'arrondis approximates 
introdults par des parties fractlonnalres que vous 
n'avez pas demandees et qu'il faudra ajuster au fur 
et a mesure, comme c'est le cas en BASIC. Les formats 
de sortie a l'ecran ou en impression sont facllement 
composes et modifies. 

Alors que les sorties destinees a 1 'utlllsateur 
peuvent prendre les formes les plus clairement lisi- 
bles, 11 est facile d'utillser des formats internes 
qui demandent moins de place ert memolre et aur les 
supports magnetlques et qui accelerent les opera- 
tions de calcul et d 'entree/sortie. Cecl donne au 
COBOL une puissance de calcul appreciable au moins 
en ce qui concerne les quatre operations de base. 
Pour le travail sur les supports d'acces direct 

(dlsquea, dlsquettes, etc ) le COBOL propose des 

types d'acces tres pulssants (Sequentiel Indexe, 
Random, Gestlon de Bases de Donnees, types d'acces 
mixtes). Differents formats d' enregistrement et de 
groupage d'enreglstrements (fixe, variable) font du 
COBOL un puissant outll de gestlon de flchlers. 

. Llsibllite de programmes 

Compare au PASCAL, le COBOL a une structure bien 
moins contralgnante. II est done possible d'ecrlre, 
er> y mettant une certaine application, des programmes 
tout a fait hermetiques, surtout si ces programmes 
depa3sent plusleurs milllers de lignes, ce qui n'est 
pas rare, le COBOL etant bien plus "verbeux" que le 
BASIC. 

II exlste neanmolns une structure du COBOL qui separe 
un programme en quatre divisions coraportant chacune 
des sections distinctes. Toute information se rappor- 
tant a une division ou section ne peut etre ecrite 
qu'entre l'entete de la division (ou section) et 
l'entete suivante. 

Ainsl sont separees la description de 1' envlronnement 
(1 'ordinateur et les perlpheriques a utiliser), la 
description des fichiers, y conprls les formats de 
l'imprimante et de l'ecran, la reservation des zones 
de travail, des zones de liaison avec des sous-pro- 
grammes, et la procedure, c'est-a-dlre, les instruc- 
tions COBOL proprement ditea. 

Cette construction et la ayntaxe du COBOL, proche de 
l'anglais, renforcee par la posslbllite d'utillser 
dea notes, dea noma de aectlon, de paragraphes et de 
rubrlques parlants, facilltent la comprehension dea 
programmes. De 1' absence d'une structure obligatoire 
a l'interieur de la partle traitement (Procedure 
Division) decoule la posslbllite d'utillser dlverses 
methodes destinees a faclliter la programmation, la 
maintenance et a amellorer la llsibllite (Programma- 
tion structuree, LCP-Warnler, Programmation Modulal- 
re, etc ...). 

. Adaptation aux ordinateurs lndivlduel3 

Du fait que le COBOL est un langage tres precis, qui 
ne suppose aucune option prise par defaut par le 
corapilateur, il est evident que le moindre programme 
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demand e un nombre de lignes d' instructions nettement 
plus important que le BASIC. II faut en tenir compte 
pour la saisie des programmes. Classiquement ce tra- 
vail n'est pa3 fait par les programmeurs , qui ecri- 
vent leurs programmes sur des feuilles de codage 
destinees a des operatrices de saisie. Pour l'utlll- 
sateur d'un ordinateur individuel qui fait tout lui 
meme, il s'agit de savoir 3i les merites du COBOL 
valent pour lui ce travail supplementalre. 

L'avantage du COBOL sera surtout sensible pour ceux 
qui ont deja une certaine experience du COBOL, c'est 
a-dire la grande majorite des informaticlens actuels. 

. Les caracteristlques du Nevada COBOL 

Ce compilateur, d'un prix relativement abordable 
(150 $ aux USA, environ 1500 F en France) fonctionne 
sur le Modele 1, sous CP/M exclusivement. II faut 
done acheter ce systeme en plus du compilateur. Pour 
les utillsateurs de TRS-DOS, LDOS, ou autres NEWDOS, 
cela demande un serieux effort d'adaptation e.t le 
renoncement a certaines facilites de ces systemes. 

En ce qui concerne le Nevada COBOL proprement dit , 
il faut tout de suite dire qu'il souffre de lacunes 
severes. La premiere de ces lacunes etant 1 'absence 
d'un editeur de programmes. Si vous ne disposez pas 
d'un editeur ou d'un programme de traitement de 
textes fonctionnant sous CP/M, il ne vous reste que 
la fonction EDIT du CP/M qui est peu pratique a 
utiliser. 

En ce qui concerne les possibilites du langage lui- 
meme, il y a aussl des lacunes importantes. La pre- 
miere a raon avis, l'absence d'une pos3lblllte de 
decrire des grilles d'ecran. Tous les dialogues avec 
celui-ci se font a travers les verbes DISPLAY et 
ACCEPT qui font aller a chaque fols a la ligne. De 
ce fait, le dialogue utllisateur-machlne, ne pour-ra 
etre que tres rudimentaire. 

II n'y a par ailleurs, aucun verbe d'acces direct ni 
d'acces sequentlel lndexe, pas d'ordres de tri, pas 
de LINKAGE SECTION, pas de tests lmbriques ni meme 
de ELSE, pas de NOM CONDITION, le PERFORM n'exlste 
que dans sa forrae la plus rudimentaire, et beaucoup 
d' autres fonctlons des plus puissantes du COBOL sont 
absentes (MOVE CORRESPONDING, COMPUTE, SEARCH, Report 
Writer, etc ...). 

Le manque le plus important peut-etre, c'est l'absen- 
ce des verbes CALL ou ENTER qui permettent d'appeler 
des routines dans d'autres langages. La possibility 
d'lncorporer des routines Assembleur aurait permls 
de pallier a certaines des falblesses du Nevada 
COBOL. 

. L'lnteret du Nevada COBOL 

Alors quel peut-etre l'interet d' utiliser ce compi- 
lateur ? 

D'abord son prix, qui le place tres loin de ses 
concurrents. 

II peut, dans un premier temps, servlr a decouvrlr 
le COBOL. II contient en effet les elements de base 
de ce langage, utiles a la comprehension dea princi- 
pes du COBOL, tela que les descriptions de fichiers 
et de zones, et les ordres de traitement elementai- 
res. 

Les fonctlons remplles par ce compilateur, permettent 
la realisation de programmes d'edition et de gestion 
de fichiers dans d'excellentes conditions, aussl 
longtemps qu'il n'est pas fait appel a un dialogue 
important avec l'operateur. Parmi les applications 
envisageables se situent toutes sortes d'utilltaires, 
tels que tris et fusions. 

Toutefoi3, pour construire une application entiere 
sur ce langage, il serait souhaitable de disposer 
d'un COBOL plus complet. 

. Wolfgang Lauter. 
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TRACE vous fournit quatre fois par an des pro- 
grammes, des astuces, de nouvelles idees 
d 'applications. TRACE est ind6pendant de tout 
constructeur, et vous tient au courant de toutes 
les nouveautes dans les domaines des logiciels, 
des materiels et des peripheriques, quelle 
qu'en soil la source. TRACE teste pour vous, 
en toute objectivite et independance, les pro- 
duits materiels ou logiciels qui vous interessent. 
TRACE n'est pas en vente chez les marchands 
de journaux. Pour vous abonner ou pour com- 
mander le prochain numero ou un numero 
anterieur, reportez-vous a la page 5. 



materiel a l'essai. 



CP/M 
pour votre modele 1 



* Qu'est-ce que CP/M 

Un ordinateur sans 3ysteme d'exploltation, vous le 
savez, est comme une voiture sans chauffeur. En 
effet, le systeme d'exploltation (appelle Disk 
Operating System ou DOS en anglais) permet a l'uti- 
llsateur d'effectuer par des comraandes simples tout 
un ensemble d' operations complexes, par exemple : 

- gestion de l'espace disque 

- gestion des entrees/sorties disque 

- communication avec les autres organes perlpheriques 

En ce qui concerne le TRS-80, 11 exlste pour lul 
deux families de DOS : d'une part TRSDOS de Radio 
Shack et ses derives, tel que NEWD0S80 et LDOS, 
d'autre part CP/M. Notre dernier (et premier I) 
numero vous presentait 1 'utilisation de CP/M sur un 
modele 2, nous nous lnteressons lei aux modeles 1 et 
3. 

CP/M (Control Program Monitor) a ete developpe par 
Digital Research pour le raicroprocesseur 8080 d' Intel 
raais depuis. 11 a ete adapte pour tous les micro- 
processeurs compatibles avec le 8080, done notamment 
le Z80 qui equipe votre TRS-80. 

* Portability des programmes 

Un des aspects qui rend CP/M particulierement inte- 
ressant est la possibility d'echanger des programmes 
entre ordinateurs de marques dlfferentes. D'abord 
parce que le support de programme est tout a fait 
normalise (enregistrement sur disquette en Tormat 
IBM 3740), et ensuite parce que les entrees/sorties 
(ecran, clavier, disquettes etc ...) utillsent des 
sous-programmes contenus dan3 CP/M lui-meme (la 
partie BIOS ou Basic Input Output System, qui lul, 
evidemraent, est particuller pour chaque type de 
machine) . 

CP/M exlste depuis 6 ans, et a l'heure actuelle on 
peut le conslderer comme parfaitement rode et bien 
au point. Plus de 100 compagnles off rent des pro- 
grammes de qualite excellente dans tous les domal- 
nes, tel que comptabilite, gestion de stocks, trai- 
tement de texte, Jeux, etc ... De plus, CP/M a ete 
choisi par de nombreux constructeurs d' ordinateurs, 
notamment IBM pour son Personal Computer (dans une 
version legerement dlfferente, 11 est vrai). 

* Le "Package" CP/M pour TRS-80 

CP/M eat disponible sur TRS-80 aupres de la firme 
americaine 0MIKR0N Systems, qui a adapte le BIOS 
pour les perlpheriques du TRS et a egalement deve- 
loppe un circuit electronlque modiflant l'adressage 
de la memoire vive quand le TRS travaille sous CP/M. 

Comme la carte Mapper II, qui permet l'utilisation 
des disquettes 8" sur le TRS (voir banc d'essai dans 
le premier numero de TRACE), le package CP/M n'est 



malheureusement pas disponible en France. Je l'al 
done commande directement chez OMIKRON, et e'est 
apres trols mois d'attente que le paquet est arrive. 
II contenait : 

- un petit circuit imprlme (la carte MAPPER I) 

- une disquette 5" CP/M version 1.1 

- un manuel d'utilisatlon OMIKRON 

- 1 'ensemble de la documentation CP/M (6 manuels) 

Le systeme CP/M fourni etait la version 1.4, mais 
OMIKRON propose aujourd'hui egalement la version 2.2, 
plus recente. 

Pour utillaer le package CP/M, 11 faut un TRS-80 
modele 1 plus 1' extension d' Interface avec au molns 
16K de memoire, ainsi qu'un lecteur de disquettes 5". 
II convient de signaler, que le systeme est "fait 
sur mesure" pour la taille de memoire disponible, et 
aussi pour la configuration des lecteurs de disquet- 
tes, ces informations etant precisees lors de la 
commande. 

A titre d'exetnple, mon systeme etait configure pour 
48K de memoire, les drives A et B comme des 5", et 
les drives C et D comme des 8". 

* Installation et mise en oeuvre 

L' Installation du circuit imprlme est simple. Elle 
ne necessite ni manipulation de fer a souder ni cou- 
pure de pistes. Tout ce qu'il y a a faire, e'est de 
retirer le Z80 (doucement quand mime - les pattes 
sont fragiles !), lnserer a la place la carte Mapper 
(qui contient deux rangees de broches qui entrent 
dans le support du Z80), et enfin remettre en place 
le Z80 dans le support prevu a cet effet sur le 
Mapper. 

Maintenant on peut mettre le TRS-fiO sous tension. Si 
vous avez bien sulvi les conseils, le message oui- 
vant s'affiche sur votre ecran : 

T= TRS-80 
C=CP/M 

En appuyant sur T, on a un TRS-80 tout a fait normal 

- la carte Mapper est completement transparente pour 
l'utilisateur - et la machine lit le systeme TRSDOS 
(ou NEWD0S80 ou LDOS) place dans le drive :0. 

En appuyant sur C, la machine charge CP/M depuis le 
drive A et attend une commande de l'utilisateur. 

En plus des modules CP/M standards tel que assem- 
bleur, edlteur de texte, programme PIP (Peripheral 
Interchange Program) pour echange entre les dlffe- 
rentes unites perlpheriques, la disquette systeme 
contient un certain nombre de programmes uttlltaires, 
developpes par OMIKRON : 

- test des lecteurs de disquettes 
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- test de momolre 

- formattage de disquettes 5" et 8" (format IBM 3710) 

- duplication de disquettes 5" et 8" 

- driver aerie pour la ports RS-232C 

Le manuel d'utilisation sur 22 pages (en anglais) 
detaille l 1 Installation de la carte Mapper et decrit 
tous les utilitaires. La documentation CP/M, d'orl- 
?lne Digital Research, comporte six manuels : 

- An Introduction to CP/M Features and Facilities 

- CP/M System Alteration Guide 

- CP/M Dynamic Debugging Tool (DDT) 

- CP/M Assembler (ASM) 

- ED: A Context Editor for the CP/M Disk System 

- CP/M Interface Guide 

Le systeme CP/M est fourni sans language de haut 
niveau tel que le BASIC, mais 11 exlste plusieurs 
interpreteurs et compllateurs qui travaillent sous 
CP/M, notarament MBASIC de Microsoft, qui ressemble 
beaucoup au Disk BASIC du TRS-80, et CBASIC qui eat 
un BASIC semi-compile. Pour verifier la compatibili- 



ty entre raon TRS-80, travalllant en CP/M, et un 
autre ordinateur (en l'occurrence une machine de 
traitement de texte equipee d'un INTEL 8080 et de 
deux disquettes 8", disposant egalement du CP/M), 
J'ai essaye de lire sur le TRS une disquette 8" 
contenant le compilateur CBASIC de 1' autre machine. 
Compilation et execution se sont deroulees sans 
aucun probleme ! 

Le prix etalt de 199 dollars US pour 1" ensemble carte 
Mapper I, diaquette CP/M et documentation, plus 25 
dollars de port et emballage, soit un total de 221 
dollars. L'achat ra'a coute en tout 1275 francs en 
tenant compte des frais de douane, de timbres et de 
TVA. Le dollar m'est done revenu a 5,70 francs, soit 
26 % de plus que le cours offlclel, qui a cette 
epoque, etait de W.53 francs. Eh oui, nous sommes 
blen loin des prix prohibitlfs que l'on constate 
souvent chez les importateurs/revendeurs francals ! 
L' importation personnelle peut etre payante ! 



.Steen Dalby Pedersen 



technique. 



Les variables 

et leur representation 

en memoire 




**r 



Avec un langage evolue comroe le BASIC, la manipula- 
tion des variables est chose aisee, ne serait-ce que 
par le simple fait que nous n'avons pas a nous sou- 
cier de leur disposition en memoire centrale. Nous 
utilisons ces variables corame de simples "boltes a 
lettres" qui repondent automatiquement a l'appel de 
leur nom : A=3, Y=X-A... Bien pratique hein ?. II 
faut pourtant savoir que 1' interpreteur lui, ne 
s'arause pas du tout pendant ce temps-la ! 

Nous pourrions bien sur en rester la, et nos program- 
mes BASIC continueraient raalgre tout a fonctionner 
correctement. Toutefois, il peut etre avantageux 
dans certaines circonstances, d'exploiter les varia- 
bles par une routine en langage machine appelee par 
USRl Dans ce caa, 11 est neoessalre de oonnaltre la 
representation physique de ces variables en memoire 
centrale. Les fonctions BASIC PEEK et VARPTR sont 
les cles qui vont nous permettre cette exploration. 

Rappelons que la fonction VARPTR (< nom de variable>) 
fourni t une valeur d'adresse qui permettra de retrou- 
ver la variable en memoire. PEEK (< valeur d'adresse>) 
retourne 1' octet memoire range a cette adresse. 
Attention : si la valeur d'adresse est superieure a 
32767, il convient de lui retirer 65536 (PEEK, tout 
corame POKE, n'accepte que des valeurs ENTIERES, done 
comprises entre -32768 et +32767). 



Variables numerlques 



On trouve les variables numeriques sous trols forme3 
dans le BASIC du TRS-80 : entieres (%), flottantes 
simple precision (!) et flottantes double precision 



Le plus simple est de prendre un exemple de program- 
me et d'etudier les resultats fournis : 



variable entiere 

reservation variable de boucle 

polnte Afl% en memoire 



10 AB% = 1660 

20 N=0 

30 A = VARPTR (AB%) 

10 FOR N=-3 TO 7 

50 PRINT PEEK (A+N); 

60 NEXT : PRINT 

ATTENTION: la ligne 20 eat absolument neoessaire 

(voir TRACE n°1, page 11). 

Lancons ce programme et notons les valeurs obtenues. 
La meme operation sera effectuee en remplacant suc- 
cessivement AB% aux llgnes 10 et 30 par AB! puis par 
ABJ». Voici le tableau recapltulatlf des resultats : 



N 


-3 


-2 


-1 





PEEK (A+N) 
+ 1 +2 +3 +1 +5 +6 +7 


AB% 
AB1 
AB* 


2 
II 

8 


66 

6 

66 


65 
65 
65 


52 






18 /////////////////////// 
160 17 111 /////////////// 
160 17 Hi 



La zone hachuree n'est pas significative. 
Le VARPTR I de chaque variable pointe a partir de 1' oc- 
tet pour lequel N=0 et s'etend Jusqu'a N=7. Nous 
appelons cette zone "zone utile''. La zone situee a 
gauche (N=-3 a N=-1) sera baptlsee "en-tete" de la 
variable. La zone utile est la seule qui soit vrai- 
ment iraportante pour le programmeur , mais pour le 
petit curieux, 1 'en-tete contient quelques renselgne- 
raents interessants. Ainsi, l'octet N=-3 contient la 
longueur de la zone utile, alors que les octets N=-2 
et N=-1 recoivent les deux premiers caracteres ASCII 
du nom de la variable : 66 pour "B" et 65 pour "A". 
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Comme toute represent 
inverses par rapport 
La "zone utile" conti 
sous une forme simple 
tiere (52 + 256 * 18 
dans le cas des varia 
nieres representation 
A premiere vue, il ne 
141 ait un rapport qu 



ation MEMOIRE, ces octets sont 
a la progression des adresses. 
ent la valeur de la variable, 

dans le cas de la variable en- 
= 4660), un peu moins simple 
bles flottantes. Ces deux der- 
s meritent d'etre approfondles. 

semble pas evident que 0, 160, 
elconque avec 4660... 



Pour mieux comprendre , il est necessaire de placer 
les octets dans le sens inverse. Commencons par la 
variable simple precision : 



I'll 



17 160 







C'est deja plus clair, non ? 

Le nombre 4660 est ici represents sous la forme flot- 
tante normalisee, 1 4 1 etant l'exposant et 17 160 
les trois octets de la mantisse. Mais il faut passer 
par la representation blnaire pour que cela soit plus 
clair encore. 



octet 3 
1*41 



octet 2 
17 



octet 1 

160 



octet 




| 1000 1101| 10001 00011 |1010 00001 10000 ooooi 



signe 
exposant 



«! 

signe 
mantisse 



Le polds fort de 1' octet 2 represente le signe de la 
mantisse. Par convention, si le bit est a zero, la 
mantisse est positive. Pour le nombre -4660, ce bit 
serait done a 1 . Le signe de l'exposant prend la va- 
leur inverse : il est a 1 pour un exposant positif. 
Ici, l'exposant vaut done +13- En ce qui concerne la 
mantisse, deux cas peuvent se presenter : soit elle 
est representee dans son integralite par les octets 
2, 1 et 0, soit on part du principe tres evident que 
le premier bit (celui de gauche) ayant tou Jours la 
valeur 1, 11 est inutile de le faire figurer dans la 
mantisse (on gagne ainsl la place d'un bit). Dans ce 
dernier cas qui sera le notre, il faudra done ajouter 
lmplicitement un bit 1 devant notre valeur de mantis- 
se, lors de la conversion. Alnsi, pour retrouver 
notre valeur 4660, il suffit de prendre la mantisse 
sans son signe, de la faire preceder d'un bit 1 
supplementaire, comme ceci : 

1 0001 1010 0000 0000 0000 

puis de placer un "point binalre" apres le treizieme 
bit (valeur de l'exposant sans son eigne) en partant 
de la gauche : 



1 0010 0011 0100 



0000 0000 0000 



Ce nouveau nombre, convertl en hexadecimal nous 
donne 1231H, soit 4660 en decimal et c'est feien celul 
que nous cherchiona ! 

Le mode operatoire est le meme pour les variables 
flottantes double precision, mais 3*effectue sur 
huit octets au lieu de quatre. La representation des 
nombres a exposant negatif est plus complexe et nous 
ne l'exposerons pas ici. 



Variables de chaines alphanumeriques 



Nous conserverons le petit programme decrit au debut 
de cet article, en remplaeant AB% par AB$ en ligne 
30, et AB%=4660 par AB$="123l n en ligne 10. Obser- 
vons les resultats : 



AB$ 



PEEK (A+N) 
-3-2-1 0+1 +2 +3 +1 +5 +6 +7 



3 66 65 4 81 106 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 



Si l'en-tete a la meme signification que pour les 
variables numeriquea, la zone utile, par contre, 
conduit a une interpretation differente : 1 'octet 
nous informe sur la longueur de la chalne alphanume- 
rique, et les octets +1 et +2 contlennent l'adresse 
de cette chalne (dans notre cas, ce sera 81 + 256 * 
106). Lorsque la chalne est definie clalrement dans 
le programme (ex : AB$=" 1231") , cette adresse pointe 
dans le programme lui-meme. Par centre, Si la Chalne 
eat construite dynamiquement, son adresse pointera 
dans l'espace reserve aux chaines alphanumeriques 
situe en fond de memoire (dimensionne par CLEAR). 
Dans ce cas, et si vou3 avez plus de l6K de memoire 
RAM, cette adresse sera probablement super ieure a 
32767 et devra etre convertie en valeur entiere 
(voir ci-dessous). 

Pour acceder a cette chalne, on peut utiliser un 
programme de ce style : 



100 L=PEEK (A) 

110 CH = PEEK ( A+1 ) 



'longueur de la chalne 
256 • PEEK (A+2) 

'adresse chalne 
115 IF CH > 32767 THEN CH=CH-65536 'valeur entiere 
120 FOR N=0 TO L-1 
130 PRINT PEEK (CH+N); 
140 NEXT : PRINT 

On peut aussi faire : 

130 PRINT CHR$ ( PEEK (CH+N) ); 

ce qui donnera le meme resultat que PRINT AB$... 
mais en nettement plus compllque! 



Tableaux numerlques 



Pour les tableaux, nous retrouvons une structure 
similaire a celle des variables, formee d'une zone 
"en-tete" et d'une zone utile. L'en-tete est cette 
fols compose de 5 octets plus 2 octets par dimen- 
sion). Pour cette raison, il est difficile de 
"remonter" l'en-tete en partant de l'adresse donnee 
par le VARPTR, si l'on ne connalt pas a priori le 
nombre de dimensions du tableau (toutefois en pra- 
tique, celul-ci est tou Jours connu du programmeur 
au moment de l'appel du VARPTR). II faut noter que 
l'en-tete n'est slgnificatif que lorsque le VARPTR 
pointe sur le premier element du tableau. 

Reprenons le programme que nous avions utilise pour 
les variables numerlques et reraplacons AB% par AB% 
(0) puis par AB! (0), et enfin par AB« (0). La boucle 
devra s'etendre de N=-7 a N=7 en ligne 40. L'en-tete 
nous donne : 



N 


-7 


-6 


PEEK (A+N) 
-5 -4 -3 


-2 


-1 


AB%(0) 

AB!(0) 
AB«(0) 


66 
66 
66 


65 
65 

65 


25 1 
47 1 
91 1 


1 1 
l l 








Les octets -7 et -6 nous sont devenus familiers : lis 
contlennent le nom du tableau. Les octets -5 et -4 
donnent une longueur sur 16 bits permettant de con- 
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nattre la fin du tableau (dans notre caa, elle ae 
situera 25 octets plus loin). Cette Information peut 
etre calculee par la formule : 



LG = longueur zone utile + 1 + 2 



norabre de 
dimensions 



L'octet -3 contient le nombre de dimensions du ta- 
bleau (1 dans notre oas) et lea octets -2 et - 1 
donnent le nombre d 'elements allouea a chaque dimen- 
sion. Notre tableau n'ayant pas ete dimenslonne, un 
DIM AB1i(10) lmpllcite nous est Impose par l'lnter- 
preteur, ce qui autorise l'emploi des elements a 
10, solt 11 elements au total. Si nous ajoutona a 
notre tableau une ou plusieurs dimensions, les octets 
-3 a -7 seront decales vers la gauche d'autant de 
fols deux octets qu'il y a de dimensions supplemen- 
taires ... Un exemple ? 

Modlflons notre programme ainsl : 

5 DIM AB%<1.2) 

10 AB%(0,0) = ^660 

30 A = VARPTR (AB%(0,0)) 

tO FOR N=-9 TO 7 

Nous obtiendrons l'en-tete : 



-9 -« 



PEEK (A+N) 
-7 -6 -5 -1 -3 -2 -1 



AB%(0,0) 66 65 170 2 J 2 



Les octets -7 et -6 donnent la longueur totale du 
tableau (solt pour un tableau 2 dimensions de 2'3 
elements : 17 octets).. 



utilitaire. 



L'octet -5 nous inroroe cette fois que le tableau 
possede 2 dimensions, et les octets -4, -3 et -2, -1 
donnent le nombre d'elements dana chaque dimension 
specifiee par le DIM. 

La zone utile comnencant a parti r de l'octet N*0 est 
aemblable pour lea trois types de tableaux a colle 
des variables numeriquea. Dans le cas d'un tableau a 
plusieurs dimensions, lea elements ae suivent conae- 
cutivement colonne par colonne, sous la forme : 

l,c 1+1, C 1+2, C. .. 1,c+1 l+l.c+1... etc. 

A chaque fois que nous demandona le VARPTR d'un ele- 
ment de tableau nrulti-dlmenalonnel (A%(3,5,12) par 
exemple, 1 ' interpreteur doit consulter l'en-tete de 
ce tableau afin de nous fournir l'adreaae correcte 
de la zone utile correspondante. 



Tableaux de chalnes alphanumerlquea 



Avec ee que nous savona deja, ce dernier type sera 
facile a decrire. L'en-tete est semblable a celul; 
des tableaux numeriques et la zone utile sera celle 
des variables de chatnes. De meme pour lea tableaux 
a plusieurs dimensions, les blocs "d.'scri pteurs" 
( longueur /adresse chatne) de troj a octets, ae sui- 
vront consecutivement en memoire, colonne par colon- 



II ne voua reste plua qu'a mettre en pratique o.ea 
Informations ... et a nous faire part de vos decou- 
vertea ! 



.A. PINAUD 



Des ouTios pour 
votre programmation 



Des que l'on commence a s'attaquer a l'ecrlture en 
BASIC de programmes importants, on se trouve tout 
naturellement aasez raplderoent bloque par les capa- 
cltea de la machine. Et corame on n'a guere le choix, 
il faut commencer a ruser : ruser avec le BASIC, en 
mattrlaant sea defauta pour lea transformer en avan- 
tagea ; ruser avec le3 bonnes reglea de la programma- 
tion, afin d'obtenir un programme aussi court que 
poaaible, meme si les lignea trea longues ne aont 
compatibles ni avec 1 'eathetlque, ni avec la aagesse 
dea reglea en vigueur ; ruser avec les performances, 
en ecrivant en langage machine certains passages 
delicats. 

Autant de techniques qui ne aont faclles nl a appren- 
dre (elles sont rarement expllquees), ni a maltriser 
(loraque'on raarche en terrain mine, 11 y a tou jours 
quelquea dangers ! ) . 

Afin de voua alder dana cette delicate connaiasance, 
noua vous presentons une aerie d'articlea. Ceux-cl 
voua raontreront quelques-uns des outlls et des metho- 
dea "ruses" que voua pouvez utillaer pour vos pro- 
grammes. Et, "last but not the least", nous mettrona 
en oeuvre ces methodes pour en tirer un aplendide 
outil de mlae au point. 

Que pensez-vous d'un programme moniteur d'aide a la 



raise au point ecrlt en asaerableur et charge en 
memoire par un CL0AD ou un LOAD ? Programme capable 
de se reloger, de s'auto-proteger et dp s'escamoter 
en memoire, quelle que solt la configuration du 
systeme (16, 32, 18 K, casaette ou <1i3quei.te) ? 

Nous allono voua presenter lea techniques "tabou" qui 
ont ete employees dans la realisation d'un utilitai- 
re nomme BASPY (espion BASIC), et voua fournlr la 
liote complete de ce programme qui permet sous BASIC 

- le dump memoire sous forme hexa et ASCII , 

- lea conversions hexadecimal / decimal, 

- 1' edition memoire (lecture / ecrlture), 

- la recherche en memoire d'une configuration 
exprimee en hexadecimal ou en ASCII, 

- le retour au BASIC au point lnterrompu. 



De par aa conatitution, BASPY est auto-protege car 
place en memoire avant la zone BASIC, ce qui permet 
de laisser libre l'eapace a'etendant Juaqu'en fin 
de memoire (paa de MEMORY SIZE a deflnir), et d'evl- 
ter alnal la multiplicity dea veralona lieea aux 
tallies memoire ou aux organes perlpherlquea (casset- 
te ou dlsquette). 
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En version disque, le programme charge par BASIC 
a'implante automatiquement en fonction du nombre de 
zones tampons reservees aux flchiers et 11 est compa- 
tible avec les differentes versions actuelles de 
TRSDOS, NEWDOS, NEWD0S80 et LDOS. 

Ce programme peut coexlster en permanence avec 
l'interpreteur BASIC, et 11 facilite la mise au 
point des programmes en fournissant un lien DIRECT 
avec la memoire. II peut de plus se reveler etre un 
outil pedagogique perroettant de raieux saisir les 
echanges entre le BASIC et la machine. 



OUTIL N° 1 : DEPLACEF LA ZONE BASIC 



Sous BASIC, la mellleure place pour une routine, la 
place la plus sure, oelle od elle ne risque pas de 
se faire "ecraser", ce n'est pa3 en fond de memoire 
(quel fond d'abord ? 16K ? 32K ? 48K ?), c'est AVANT 
la zone BASIC. 

Que trouve-t-on dans l'espace s'etendant entre 
l'adresse 4000H (debut de la memoire vlve) et la zone 
BASIC (l'endrolt ou se chargera tout programme ecrit 
en BASIC) ?. Cette zone est "elastique" ... On y 
trouve d'abord les talbes et les pointeurs reserves 
a l'interpreteur. En version cassette, la zone BASIC 
commence la, aux alentours de 42E9H (17129). En 
version disque, nous trouvons d'abord le systeme 
d' exploitation (SED, DOS pour les angliclates) et les 
extensions du DISK-BASIC. Vlennent ensulte les zones 
de manoeuvre reservees aux fichiers disquettes : 
autant de zones de 290 octets que vous avez reserve 
de flchiers en reponse a HOW MANY FILES. Enfln, 
arrive la zone BASIC, zone dans laquelle sera char- 
gee le programme ecrlt en BASIC. 

L'adresse de cette zone est fort heureusement conser- 
ved bien au frais dans un endroit lmmuable : 40A4H 
et 40A5H, (16518 et 16549 en decimal), qui en con- 
tiennent respectivement les poids faibles et les 
poids forts . 

LE DEBUT DE LA ZONE BASIC EST POINTE PAR 40A4H. 

L' OCTET PRECEDANT LA ZONE BASIC DOIT T0UJ0URS ETRE 
ZERO. 

Et la fin de la zone BASIC, malntenant ? Comment 
peut-on la connaltre ? 

Facile ! Le debut de la zone des VARIABLES uti Usees 
dans un programme BASIC est pointe par les adresses 
40F9H et 40FAH. C'est egalement un endroit lmmuable, 
et aussi une adresse a se rappeler. Lorsque l'on salt 
que cette zone suit imraediatement la zone BASIC ... 

LA FIN DE LA ZONE BASIC EST POINTEE PAR 40F9H. 

Maintenant, nous Savons tout ce qui est necessaire 
de savoir pour deplacer la zone BASIC : 11 Taut aug- 
menter la valeur contenue aux adresses 40A4H et 
40A5H (debut de la zone), ain3i que celle contenue 
aux adresses 40F9H et 40PAH (fin), en n'oubliant pas 
de remettre a zero 1' octet precedent le nouveau de- 
but de la zone. L'espace ainsl saute pourra etre 
utilise par exemple pour loger une routine binaire. 



Mais avant de' pratiquer un peu 
cice, examinons la structure d 
prement dite. 
En memoire, chaque llgne BASIC 
fort loin a celle que l'on peu 
programme. Elle est composee d 

- un "lien de chaine" sur 2 oc 
l'adresse de la llgne 3uivan 
tete), et utilise par l'lnte 
cherche rapide, au travers d 



avec ce genre d ' exer- 
e la zone BASIC pro- 
ne ressemble que de 
t lire sur une liste de 
e 4 champs : 

tets, indiquant 
te (poids faibles en 
rpreteur pour une re- 
u programme . 



- le nuraero de la llgne sur 2 octets, code en binai- 



re pour tenir moin3 de place, (poids faibles en 
tete). 

- la suite des Instructions BASIC, les "mots-cles" 
de l'interpreteur etant codes sur un seul octet 
(l'ordre PRINT par exemple, sera code B2H en hexa). 

- un octet zero indiquant la fin de la ligne. 
Un lien de chaine de valeur (our deux octets) 
indique la fin du programme. 

Ainsl, si l'on ecrlt : 

1 GOTO 3 

3 PRINT" ABCD" 
nous retrouverons ce petit programme dans la zone 
BASIC sous cette forme : 

40A4/40A5 



00 




B2 22 41 42 43 44 22 00 

-T \ +~ 
PRINT"ABCD" ) 



40F9/40FA 



(la valeur du lien de chaine peut varier selon les 
configurations ) . 

Dans cet exemple, 40A4H pointers sur 1' octet "IE" 
et 40F9H polntera apres le lien de chaine nul. 

Voici maintenant le petit programme (seulement 2 

lignes) qui vous permettra de deplacer la zone 

BASIC. 

ATTENTION : la seconde ligne ne doit pas etre coupee. 

10 INPUT "de combien d' octets voulez-vous deplacer 
le BASIC" ;D 

20 A=PEEK( 16548)+256*PEEK( 16549) :A=A+D:P0KE16518, 
(A AND 255):POKEl6549,A/256:POKE A-1 ,0: P0KEA.0: P0KEA 
+1.0: NEW 

Pour verifier la chose, et avant de charger le pro- 
gramme, frappez d'abord : 

NEW 
PRINT MEM 

et notez la valeur afflchee. 

Chargez ensuite le programme et lancez-le. 

Repondez a la question avec la valeur 200, par 

exemple. 

Apres execution, faire de nouveau : 

PRINT MEM 

Vous devez retrouvez la valeur lnitlale dininuee de 
20O, ce qui prouve bien que la zone BASIC a 
"avancee" de 200 octets. Pour revenir a l'ancienne 
valeur, relancer le programme (apres 1 'avoir charge) 
et frapper -200 . . . 

Remarques sur le programme : 

En ligne 20, on lit tout d'abord l'adresse contenue 
en 40A4 et 40A5 (16548 et 16549). Pour reconstltuer 
une valeur "16 bits", il est necessaire de multiplier 
les poids forts par 256 et d'y ajouter les poids 
faibles. Cette valeur est ensuite stockee dans la 
variable A, puis est augmentee de celle de la varia- 
ble D (valeur de deplacement) . On modlfie alors 
l'adresse de debut de la zone BASIC (ce n'est pas 
genant pour 1 ' instant : le programme etant sur une 
seule llgne, l'interpreteur ne fait pas usage de ce 
pointeur ) . 

L'octet precedant la zone est ensuite force a zero, 
alnsi que les deux premiers octets (premier lien de 
chaine de la nouvelle zone). Ensuite ? Eh bien il 
vaut raieux terminer par un NEW avant que l'interpre- 
teur commence a se poser la molndre question . . . 



Alain Plnaud 
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bricolage. 



Modele 1, modele 3, 

20 francs 
pour les connecter 



to_*Mt«S : 2WZZZ.2- 4/5i/ 




% -*K5 




Nous avons trouve par miracle, au fond d'un tiroir du T.R.C. (TRACE Research Center) 
un prototype historique. Mieux vaut vous expliquer tout de suite son histoire AVANT 
que vous ne voyiez la photo de trop pres ... ! 

Cela se passait il y a quelques mois. C'etait un dimanche. Un TRS 80 modele 3 venu 
tout droit des Etats-Unis (il n'y en avait pas encore en France), vint nous rendre 
visite. Impatients d'essayer les programmes dont nous disposions sur notre vieux 
modele 1, nous nous heurtaraes au probleme des cassettes dont souffrait encore notre 
systeme. C'etait pourtant le seul lien possible entre les deux machines. Nous 
decidames alors de realiser une liaison "sans cassettes" avec ce que nous avions, 
c'est-a-dire pas grand 'chose : une pile de 4,5 volts, deux prises DIN, cinq resis- 
tances, un condensateur, deux transistors, et . . . une boite de cachous ! Le montage 
fonctionne encore et il est reste tel quel depuis ce jour. 





Ce prototype est "half-duplex", c'est-a-dire qu'il ne permet de transmettre des in- 
formations que dans un sens a la fois. Pour changer de sens, il faut permuter les 
deux prises ou employer un double inverseur. Avec cette interface, on peut aussi 
relier deux ordinateurs de meme type (2 modeles 1 ou 2 modeles 3). 

L'utilisation est des plus simples : en BASIC, il suffit de frapper les commandes 
CLOAD cote recepteur et CSAVE cote emetteur. Pour les programmes en langage machine, 
il faut faire SYSTEM cote recepteur et employer cote emetteur un utilitaire capable 
d'ecrire des cassettes binaires (DUPLIK ou UMOFFSET par example). 



Alain Pinaud 
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realisation 

Sonorisez votre 
ordinateur 




De plus en plus, les programmes de jeux disponibles sue les TRS-80 modeles 1 et 3, 
sont sonores, c'est-a-dire qu'ils sont capables d'emettre des sons divers et varies 
sur la sortie reservee habituellement au cassettophone. 

Afin de ne pas "bricoler" son lecteur de cassettes ou de monopoliser la chaine ste- 
reo familiale, il est preferable de realiser (ou d'acheter) un petit amplif icateur 
qui sera reserve a cet usage. On trouve en effet des circuits integres amplifica- 
teurs basse frequence tres simples a mettre en oeuvre et fonctionnant a coup sur. 

Personnel lement, j'ai choisi le TDA 2030 de Thomson-Efcis, dont la fiche technique 
nous donne une implantation sur circuit imprime. 

II ne s'agit bien evidemment pas d*un amplificateur haute fidelite, mais la qualite 
de reproduction ne me parait pas primordiale dans cette application. 
De plus, ce circuit integre est a l'epreuve des courts-circuits et possede une de- 
tection thermique qui permet de le proteger si la puissance dissipee est trop 
importante. 



Schema de principe 



v cc + 



0,KF 

R3 
22 kn 



t 



lR7 I C5 I C3 
Ql00^1<X)ilOO 

T kn mF I nF 
C1" * , 



C2 ,.. 
22 uF 



3 

100 kO 
R6 



R2 

100 
kfi 



D1 
-M- 



1N4001 




C4 
2000 *iF 

-9- 



Ab4 

ill n 



«' 



220nF±C7 



r 



Pour 1 'alimentation, et bien que le circuit fonctionne encore a 5V, il est conseille 

d'utiliser du 12V pouvant fournir une intensite d'u-n ampere pour un haut-parleur de 

4 ohm (0,5 A pour un haut-parleur de 8 ohm). 

■'pan Lech Saconney. 
Implantation du circuit imprime : 



COTE 
COMPOSANTS 



vo 





58 — TRACE N° 2 — Avril 82 



jeu 



La 

multiplication 
egyptienne 

C3 fait co"""" ) 




Cette methode venue de l'antiquite, permettait aux 
anciens d'effectuer rapidement la multiplication de 
deux nombres. Au depart, elle necessite de savoir : 

- reconnaltre un nombre pair d'un nombre impair, 

- faire une addition, 

- faire une division entiere par 2. 

Bien entendu, l'ordlnateur salt effeotuer des multi- 
plicationa, ou tout au moins, il en donne 1 ' impres- 
sion. En reallte, l'algorlthme de calcul qu'il uti- 
lise est peut etre derive de cette methode mlllenai- 
re ... car en fin de compte, le microprocesseur lui, 
ne possede pas d' instruction de multiplication : il 
ne salt qu'additionner. 

Nous allons done slmuler le mecanlsme de la multi- 
plication Egyptienne en BASIC, en nous aidant d'un 
organ igramme. 

Mais tout d'abord, de quelles fonctions avons-nous 
be30in ? 

- Faire une addition ? Qa e'est facile : C = A + B. 

- Faire une division entiere par deux ? Rien de bien 
difficile : A = INT ( B / 2 ). Ici, la variable A 
contlendra la partle entiere (fonction INT) de B 
divise par 2. 



- Reconnaltre si un nombre est pair ou impair ? II 
y a plusleurs facons de proceder. Mais tout 
d'abord qu'est-ce qu'un nombre pair ? Nous pouvons 
dire que e'est un nombre qui, divise par deux, ne 
donne pas de reste. 
Par exemple : 3 divise par 2 donne 1 comme diviseur 
ENTIER et 1 comme RESTE. 3 n'eot pas pair. 6 divise 
par 2 donne 3 comme diviseur ENTIER et comme reste. 
6 est pair. 
En d'autres termes, si : 

N - 2 • INT (N / 2) donne 0, le nombre est pair. 
En BASIC, cela donne : 

IK N - 2 * INT (N / 2) = THEN ... nombre pair 
II y a une autre methode qui fait appel au calcul 
binaire : si un nombre positlf est pair, son dernier 
bit est 0, alors que s'll est impair, ce dernier bit 
est 1. 

Par exemple, le nombre six (pair), s'ecrlt 0110 en 
binaire (dernier bit =0). Le nombre 7 (impair) 
s'ecrit 111 (dernier bit =1). 

En BASIC, l'operateur logique AND (appele ausal ET 
logique ou intersection) permet d'effectuer un 
"masque" sur un nombre binaire. II est alora facile 
d'isoler le dernier bit d'un nombre (masque = 1), 
pour en connaltre la valeur : 

nombre binaire — ♦ 10110101 

masque — » 1 

operation AND — -» 

resultat — + 1 

En BASIC, cela s'ecrlt : 

IF ( N AND 1 ) = THEN . . . nombre pair 

Vous etes peut etre en train de penser "mais lei, le 
nombre N n'est pas represents en binaire ?". En fait, 
cela n'est pas necessaire car l'operateur AND, qui 
n'opere que sur des valeurs binairea, effectue lm- 
plicitement cette conversion. 

La seule restriction de cette derniere methode, est 
que l'operateur AND ne travaille que sur des nombres 
entiers au sens du BASIC, e'est-a-dire inferieurs a 
32768. 



Organlgramme de prlnclpe de 
la multiplication Egyptienne 




Afflcher 

le resultat 

A x B = C 



10 REM "MULTIPLICATION EGYPTIENNE POUR P0QUETTE" 

20 PRINT "MULTIPLICATION EGYPTIENNE" 

30 PRINT "PREMIER NOMBRE" : INPUT C 

40 PRINT "SECOND NOMBRE" : INPUT D 

50 REM "CALCUL" 

60 A=C : B=D 

70 E=0 

80 IF B-2*INT(B/2)=1 THEN E=E+A 

90 IF B=l THEN 140 

100 B=INT(B/2) 

110 A=A+A 

120 GOTO 80 

130 REM "EDITION DU RESULTAT" 

14D PRINT "RESULTAT:" ; C ; "X" ; D ; "=" ; E 

150 REM "CALCUL SUIVANT" 

160 GOTO 20 
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10 
ii 

12 

13 

15 
16 
17 
18 
19 
20 
21 
22 
23 
2<t 
25 
26 
27 
28 
29 
30 
31 
32 
33 
3<* 
35 
36 
37 
38 



Programme de multiplication selon 
la methode dite "Egypt i enne" 



CLS 



entrees des donnees 



PRINT TAB<15) "MULTIPLICATION EGYPTIENNE" 
PRINT TAB(15) STRINGf ( 25 ? CHR* ( 13 1 ) ) : PRINT 
INPUT "PREMIER NOMBRE" ; CI 
INPUT " SECOND NOMBRE" ; C2 



alsorithme de calcul 



A=C1 : B=C2 

C=0 

IF (B AND 1)=1 THEN C=C+A 

IF B=l THEN 34 

B=INT(B/2) 

A = A+A 

GOTO 26 

l 

' edition du resultat 

PRINT "RESULTAT:" ;C1; "X" ;C2; 

' cal cul su i^ant 

GOTO 17 



? /0 



jo** 



^ J 



;c 



F6 
F5 
ft 
6F 
F2 
Fl 
FO 
88 
80 
9A 
FO 
EB 
EA 
E9 
98 
9F 
88 
DD 
60 
7E 
ED 
El 
EO 
DF 
CA 
DB 
DC 
DB 
E5 



utilitaire. 



Une methode 
pour tracer vos courbes 



Votre poquette est capable d 'exploiter des chaines 
de caracteres et 11 possede une imprimante. C'est 
bien. Mais peut-on lui falre tracer des courbes ? 
Oni. Ce petit programme vous le deraontrera. 



Sur le poquatte, les chaines de caracteres sont 
difficilement utllisables corame telles, mais il est 
toutefois possible de detourner le probleme en consl- 
derant une chalne comme la somme de plusieurs sous- 
chaines. 



Une variable contenant ici 16 caracteres (nombre de 
caracteres par llgne imprimee) peut etre divisee en 
46 variables alphanumerlques, pour lancer sur 1 ' im- 
primante le dessln d'une courbe. 

Void le programme : 

10 FOR W=1 TO 16 
20 A»(W)=" " 
30 NEXT W 



10 FOR V=1 TO HO 
50 S=INT (SIN(V»10)*(2 )) + 10 
60 A$(S)="+" 

70 PRINT A$;B$;C$;D$;E$;F$;G$;H$; 
I$;J$;K$;L$;M*;N$;0$;P$ 
80 A$(S)=" " 
90 NEXT V 

Essayez-le et vous aurez une Jolle corbe slnusolda- 
le ! Ne p*s oubller de mettre la machine en mode 
DEC RE. 



En modifian 
sentation d 
vous devrez 
1' increment 
En decoupan 
chaines, il 
nlr (pourqu 
puissantes 
dele 1. 



t la ligne 50, vous obtiendrez la repre- 
une courbe de votre choix. Dans ce cas, 
ega lenient modifier la ligne 10 aelon 
de l'ordonnee que vous desirez. 

t alnsl une chalne de caracteres en soua- 
est possible de la decomposer pour obte- 

ol pas ?) les memes resultats qu'avec les 

Instructions LEFT$ , RIGHT* et MID$ du mo- 



.Mlchel Claveau 
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Un mini 



traitement de textes 



Vous connaissez tous le programme Scrlpslt sur modu- 
les 1, 2 ou 3 ? En volol une version (bien moins 
puiS3ante et blen moins "intelligente" ) pour le 
poquette TRS-80 / Sharp PC-3211. 

La tache qui vous lnoombe consiste a entrer la date, 

le nom du destlnatalre, le texte et la signature, le 

tout dans un ordre quelconque puisque effectue en 

mode DEF. 

II est possible d'etelndre l'ordinateur a n'importe 

quel instant, les derniere3 donnees seront sauvegar- 

dees : vous pouvez par exemple , entrer la date et le 

nom du destinatalre, puis eteindre la machine. Plus 

tard, vous pourrez l'allumer de nouveau puis entrer 

la lettre et la signature . 

II est aussi possible de sauvegarder des "lettres" 

sur cassettes. 

Enfin, vous pouvez lmprimer la lettre a n'importe 

quel moment, meme si vous avez eteint l'ordinateur 

auparavant. 



5: CLEAR :BEEP 
11 INPUT "SCR 
IPSnvPOCKET 
"iA 
61 GOTO 5 

10«"N' INPUT "NO 
M l"SA*.B* 

15: END 

20s "D" INPUT "DA 
TE :-;C*:ENH 

25s"L":D=7 

30iD=D+2: INPUT 
"CAR ACS. :"iA 



*<B>:BEEP l: 
E»D+H INPUT 
"CARACS. 2s "I 
A*<E>:G0T0 3 


351 END 

40i"='PRINT " 
LE "iC*: 
PRINT " "I 
PRINT "M. "I A 
*il=»: PRINT * 



50: FOR E«9T0 D 
STEP 2:F=E+l 
: PRINT A*<E> 
IA*<F)iJCXT 

EiPRINT " "i 

PRINT " "IG 

*>H$: PRINT " 

"•■PRINT " " 

: PRINT 

END 
60:"S'INPUT "SI 
GNATURE :"1G 



Mode d'emploi 

Passez en mode DEF et effectuer : 
SHFT D = date 

Affichage : DATE : 

Entrez une date 3elon la forme : JJMM/AA 

Exemple : 0112/82 

Affichage : DATE : 0112/82 

Appuyez sur ENTER 

La date est entree en memoire. 

SHFT N = nom 

Affichage : NOM : 

Entrez un nom 

Exemple : DUP0NT 

Appuyez sur ENTER ENTER 

Pour les noms plus longs, faites : 

DUP0NTL ENTER 

1231567 

Affichage : ? 

Entrez : AJOIE ENTER 

Vous pouvez ainsl entrer Jusqu'a 11 caracteres 

par nom, de cette maniere . 

SHFT L = la lettre elle-meme 
Affichage : CARACS. : 

Entrez las 7 premiers caracteres de votre lettre 
Soit a lmprimer, par exemple, le message 
suivant : 

CECI EST UN ESSAI DU PROGRAMME SCP. 

Entrez : CECI ES ENTER 
1231567 

Bip ! Ce son signifie que l'on passe sur la 



seconde moitle du rouleau (a cause de la taille 
des memoires, J'ai du partager la ligne en 
deux : 7+7). 
Affichage : CARACS. 2: 
Entrez ensuite : T UN ES ENTER 
1231567 



la suite sera sur la 



Le mob ESSAI est coupe 
ligne sulvante. 
Affichage : CARACS.: 
Entrez : -SAI DU ENTER 
1231567 

(blp !) 

Et ainsi de suite . . . 

CARACS. 2: PRO- ENTER 

12315 
CARACS. : GRAMME ENTER 
1231567 

(blp !) 

CARACS. 2: SCP. ENTER 

1231 
Faites ENTER a la fin de la lettre. 



w 

H 
H 

W 

a 
o 






SHFT S = signature 

Affichage : SIGNATURE 
Entrez : ALBERT ENTER 

1231567 
Affichage : 7 
Entrez : DUM0NT ENTER 

123156 
Pour les noms plus courts, faites 2 fois ENTER 
Pour lmprimer, (enfin arrive le resultat tant atten- 
du !), ne pas oublier de mettre l'imprimante en 
route . . . 

SHFT = 

Tout se passe automat iquement, et 11 est lmpri- 
me tout ce que vous avez demande a l'ordinateur. 
Dans 1 'exemple ci-dessus, ce sera : 

LE 0112/82 

M.DUP0NTLAJ0IE 

CECI EST UN ES 
-SAI DU PRO- 
GRAMME SCP. 

ALBERT DUM0NT 

Le programme cadre automatiquement la date, le nom, 
la lettre et la signature. 

L'utilisation semble un peu compllquee mais, avec un 
peu d' habitude, cela devient tres facile - et tres 
pratique . 

Quelques petlts consells maintenant : 

. Pour lmprimer plusieurs lettres a la suite, 11 
suffit d'appuyer de nouveau sur SHFT = autant de 

fois que vous le desirez. 

. Ne pas oublier de faire CLEAR avant de commencer 
une nouvelle lettre. 

. Pour sauvegarder la lettre sur cassette, 11 suffit 
de faire : PRINT t "LETTRE". 

. Pour rellre la lettre a partir de la cassette, 
faire : INPUT f "LETTRE" et SHFT ■ pour 1' lmpri- 
mer (ne pas oublier de mettre la date a Jour si 
necessaire !). 



Ecrivez de bons "romans" ! I 



.Jean David Blanc 
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W jeu_ 
U Des 



w 

o 



cavernes 
dans 
le poquette 




- Vous vous trouvez dans un tunnel mal eclaire, le 
tunnel continue vers le nord et se termine au sud, 
vous voyez plusleurs portes sur le cote, il y a 
un couteau et une vlellle corde pres d'une des 
portes. Vous voyez un lion ... 

- Je prends la corde. 

- O.K. 

- Au nord 

- vous vous trouvez dans une large piece . . . 

Qui ne connalt pas les programmes d'aventures ? 
Ce sont des sortes de labyrinthes que l'on explore a 
la recherche de tresors et d'actlon. 
II en exlste un grand nombre pour le TRS-80, raais 
leur taille et leur complexity les interdisent aux 
petits systeraes. En effet, de tel3 programmes deman- 
dent un minimum de *4K octets de tnemoire... Un peu 
trop pour le poquette ! 

Le programme decrlt ci-dessous ne fonctionne pas 
comrae les programmes d'aventures habituels : au lieu 
de contenlr toute3 les pieces au depart, il les 
"invente" au fur et a mesure, ce qui permet d' explo- 
rer aussi longtemps que l'on veut, des cavernes obs- 
cures et dangereuses. 



Mode d'emploi 

La premiere rangee 
poquette ont ete a 

- A : pour demarre 
apparalt, repondez 
User le programme 
A la question "NIV 
correspondant au n 
cette aventure. Le 
premiere piece, pu 
qui l'occupe, ains 
les quatre direct! 
Lorsque le texte " 



des touches programmables du 
ssignees ainsi : 

r le Jeu. Lorsque le texte "N0.=" 
un nombre quelconque pour lnltia- 

EAU(075)", repondez par un nombre 
iveau de difficult^ souhaite dans 

programme vous decrlra alora la 
i3 - eventuellement - le monstre 
i que lea differentes aortiea dans 
on3 (est, oue3t, nord et sud). 
ORDRE" sera afflche, vous pourrez 



frapper votre commande (SHFT puis l'une des dix 
touches programmables). 

- S : Deplacement vers le nord. S'il y a un monstre 
dans le piece, 11 se peut que vous ne puissiez 
passer. Dans ce cas, il vous faudra essayer une au- 
tre issue. Si vous ne pouvez plus sortir, alors vous 
avez perdu . 

- D : Meme chose pour aller a l'est. 

- F : Pour le sud. 

- G : Pour l'ouest. 

- H : Pour vous debarrasser des monstres qui vous 
genent dans votre progression, il existe dix anneaux 
"magiques" ayant le pouvolr de tuer certains mons- 
tres. Ces anneaux sont disperses dans les cavernes 
sauf l'anneau numero 1 que vous possedez au depart. 
Le but du jeu est, en fait, de retrouver les autres 
anneaux. Si vous en apercevez un, SHFT H vous per- 
mettra de le saisir. 

- J : Donne l'inventaire des anneaux en votre 
possess) on. 

t K : Pour tuer un monstre. Cecl donne un point a 
votre score et vous permet de changer de piece si le 
monstre vous en empechait. Pour cela, il vous faut 
posseder l'anneau correspondant a ce monstre (sinon, 
cela ne marche pas !). 

- L : Donne le score lorsque vous desirez abandonner 
la partie (parfoi3, vous ne pouvez pas faire autre- 
ciient !). 

- = : Pour revoir la description d'une piece. 

Pour entrer le programme, il faut d'abord charger le: 
DATA dans les memoires correspondantes, a l'aide 
par exemple d'une petite ligne de BASIC que l'on 
effacera ensuite : 

10 FOR G=22 TO 65 : 

INPUT A$(G) : 
NEXT G : END 

L'ensemble DATA et programme occupent toute la me- 
moire. N'essayez done pas d'en ajouter davantage ! 

Description des memoires 



A a U : memoires de manoeuvre . 

A(12) a A(21) : endroits oil se trouvent les dix 

anneaux. A(12) sera toujours a 0, puisqu'il est por- 

te par le joueur. 

A(22) a A(26) : noms des differentes 3orties (PORTE, 



CHEMIN, etc .. 
A(27) a A(16) 
SALE, etc ...] 
A(17) a A(56) 
A(57) a A(-6l) 



). 
suite d'adjectifs divers (VIEUX, 



noms des pieces (VOLCAN, TEMPLE ...) 
differentes "bestioles" qui peuplent 
les cavernes du poquette. 

Enfin, A(62) a A(65) contlennent les quatre direc- 
tions et A(66) a A(69) sont utilisees par le program- 
me. 

II est evidemment possible de changer le contenu des 
memoires 22 a 61 (qu« dirlez-vous d'une autre aven- 
ture a bord d'une fusee, par exemple, en remplacant 
"TUNNEL" par "CABINE" et "DRAGON" par "ALIEN"...?). 

Si vous possedez une Imprimante, vous aurez meme une 
trace ecrite de vos aventures . . . 

Si vous enregistrez le programme, n'oubliez pas de 
sauver les DATA avec : PRINT # "(le titre) ";A 

Le niveau de jeu regie la facillte de passage d'une 
piece a 1' autre (ou le nombre de chemins qui vous 
seront accessibles) . 

(listing au dos ) 



-Charles Feydy 
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PROGRAMMES ET MEMOIRES. 



Touches programmable s 



10: "A" INPUT "NO 
.= »*J)»"NIVE 
AU<.0/5>= *»F 
*F«4F 

20i FOR G*13T0 2 
UE«D+15Gt 
G03JB "R"Jft( 
6>«1KT E* 
NEXT G 

30iO5iA<67}-0* 
GO SUB 180: 
GOTO E2 

35*A*c:66)=""*IF 
OE2LET OC- 
E2*IMT <C.'E2 

40i&>B-INT B: 
FOR H=1.T0 3: 
G=G*10!AC3+-H 
>=INT G+7-KH 
♦1>*10:G=G- 
INT GxHEXT H 

30: BEEP II PRINT 

■VflUB ETE5 D 

ANB': PRINT " 

UN 'i«(I);" 

"fA*<K>l ■ " 

60: IF INT A>40- 
FLET G*S7+ 
INT B/201 

PRINT "IL V 
P, tJN "JA*<D> 
ift*<€6>sft*<G 

> 
70: FOR G=1.T0 10 

hf ft<n+G>«= 

CPRINT »VOUS 
TROUVEZ" : 

PRINT "L-ftHM 

Eft l.l tt">G 
75JNEKT GaPRlHT 

"II. V ft: 
80: FOR G»1.T0 7 

STEP 2 s A* (69 

>="*:IF G=7 

LET A*«:£9>=" 

M 

8SlK*GJG0SUB "T 
M :1F K>*4I..ET 
K«G*-t:>K'-2* 

61: GO-SUB "T" 
:K==22+1NT <K 
/2: PRINT "UN 

"iftfilO!" ft" 

90: NEXT 5s 

RETURN 
100: INPUT "ORDRE 

"»0 
11 01 GOTO E2 
120: "S"K=1= GOTO 

160 
130: "D"K---:5s GOTO 

160 
140« "F"K=5s GOTO 

160 



150. "o"K--7 

160:G=»::ft<68>=K: 
GOSUB "T'TIF 
K<4G0T0 270 

170«K»G+lsG09JB 
"T":IF K/-2- 
INT CK/'2>-O0 
IF INT AMD- 
FPRINT "LE M 
0NS5TRE VOUS 
ARRETE"iGOT0 
E2 

190: FOR G=1T0 2: 
0>C-4*A.C63>i 
E=C+D: GOSUB 
n R"Jft<G>HEB 
NEXT Gs GOSUB 
35: GOTO E2 

190:"H"FGR G=12 
TO 21 1 IF ft<G 
>»EPRINT "UK 
.":ft(.G>=0 

2001 NEHT 6a GOTO 
E2 

2101 "J"I*0» PRINT 
■VOUS ftVEZ": 
FOR" G=1?.T0 2 
1:1F ft'.:G>=0 
LET N=C5-li: 

print "l-ahn 

EftU tt"?H: I==l 

22D«HEXT GsIF I« 
OPRINT "RIEN 

225: GOTO E2 

230: "K" IF &*<$&> 
=""GOTO E2 

240* G= INT B-10'K 
INT <B.'lO:l,F 
ACGH2>=0 
PRINT M GK."J 
A<67>*l+-A<6? 
*ftl;< 66 >=•••: 
FOR' H»2T0 B 
STEP 2JK«H: 
GOSUB "T 

250: IF A<G*12>«0 
IF K>*2--fM7 I! 

k/2K>oft a 

=ftM ■lO-'H 
260: if A«:G+12>s»0 

NE>tf H.-GOTO 

E2 
270JPRJ.NT "HON!" 

:GCTo E2 
2"30:"T"K=':iNT <A 

♦■][n:))-(ir> 

INT iA'I)'0''::K 

-1 J RET URN 
290: B R"E=AI)S ( 

SIN E*E2: 

RETURN 
300* "L "PRINT "GC 

CREi SA&S7> 

JEHU 
400:"="Gt:i':UB 35: 

GOTO E2 



NOTE : faire d'abord CLEAR, puis in- 
troduire les DATA de A$(22) a A$(65) 
par une ligne BASIC quel' on effacera 
apres usage (voir plus haut). Entrer 
ensuite le programme. Remarquez que 
ce dernier a ete concentre au maxi- 
mum (GOTO E2 au lieu de GOTO 100, 
par exemple). 



22. 


E PORTE 


23. 


CHEMIN 


24. 


E ROUTE 


25. 


TUNNEL 


26. 


E TPAPPE 


27. 


VIEUX 


23. 


SftLE 


29. 


GRAND 


30. 


PETIT 


31. 


TRISTE 


32. 


SOMBRE 


33. 


ETRANGE 


34. 


LARGE 


35. 


ANCIENT 


36. 


LARGE 


37. 


ROMAIH 


38. 


GREC 


39. 


PERDU 


40. 


DESERT 


41. 


HUM I BE 


42. 


SWIRE 


43. 


EN BO LIE 


44. 


BRULE 


45. 


MAUD I T 


46. 


EH LAME 


47. 


TUNNEL. 


43. 


TEMPLE 


49. 


TOMBEAU 


50. 


CAVEAU 


51. 


LOCAL 


52. 


COULOIR 


53. 


TUNNEL 


54. 


PUITS 


55. 


TUNNEL 


56. 


VQLCAH 


57. 


DRAGON 


58. 


SORCIER 


59. 


TROLL 


60. 


LION 


61. 


VAMPIRE 


62. 


U NORB 


63. 


L-EST 


64. 


U SWB 


65. 


L-OUEST 
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programme. 



Quand votre 
poquette 

re-devient 
calculette 




g^ 



<*■ 



Qui d'entre nous n'a jamais eu a additionner de 
longues colonnes de norabres ? Souvenez-vous ! En 
verifiant, vous ne trouviez pas la raerae valeur. A 
la deuxierae verification un resultat encore different 
apparaissait sur votre calculatrice. Dans l'effare- 
raent qui suivait voua doutiez de tout : des piles 
de votre machine, de votre capacite a lire, de I'hy- 
grometrie de la piece. 

II ne vous restalt plus alors, pour eclalrcir le 
probleme, qu'a verifier votre blorythme, vos dons 
telekinealques (qui auraient pu lnfluer sur la memol- 
re de votre calculatrice), ou falre bruler un cier- 
ge, en esperant que cela s'arrange. 
Aujourd'hul la solution arrive ! Soudain, dans 
1 'eclat merveilleux de "TRACE'' une apparition fantas- 
tique se montre : un programme d 'addition sur la 
tres jolle TRS-80 POCKET. Finl le« crises de depres- 
sion ! Ne fouettez plus votre calculatrice ! Dormez 
enfin en paix ! 



LE PROGRAMME 



10 "D" 
20 "S" 
30 "C" 
HO "V" 



: CLEAR :E=1 

:D=1:A=E:G0T0 60 

:D=2:G0T0 50 
' :D=3 

50 INPUT"NUM. DEPART ";A:IF AO GOTO 50 
55 IF A>=E GOTO 50 

60 IF D>1 PRINT A,A(A+5):IF D=3 LET A=A.1:G0T0 55 
70 INPUT B:C=C-A(A+5)fB:A(A+5)=B:A=JW1:IF A>E LET E=A 
80 GOTO 60 

90 "F":A=A(E+«):BrE-1 : PKINT"NB: " ;B; "' T0TAL:";C: 
PRINT" DERNIER :";A:G0TO 90 

Dans le programme les variables suivantes sont 
utllisee3 : 

A = Compteur 

B = Memoi re-tampon pour la salsie 

C = Total 

D = Code operation (l.saisie 2. correction 

3. visualisation) 
E = Nombre de donnees rentrees 
Les donnees sont stockees dans A( 5) . A(6) , A(7) , . . . 

Le programme occupe 221 pas. S'il est le seu] en 
meraolre, il vou3 permettra d'additlonner 170 valeurs 
(TJ9 meraoires libres * 26 memoires fixes - 5 varia- 
bles de controle). 

UTILISATION 

Le programme doit etre utilise en mode DEF . afin de 
pouvoir se servir des etiquettes incluses dans le 
programme . 

INITIALISATION. II suffit de falre 'SHFT D'. Cela 
efface les donnees presentes et Initialise le comp- 
teur et le code operation. On fera done 1' Initiali- 
sation a chaque nouvelle addition. 



Le programme demande ensuite les valeurs, que l'on 
pourra salsir immediatement. Si l'on tape 'Enter', 
sans avoir auparavant tape de chiffres, la salsie 
sera refusee, et la question reposee. 

RFSULTATS. En faisant 'Shft F'. on visuali3era le 
nombre de donnees et le total. Si on tape ensuir.e 
'Enter' la derniere valeur s'afflchera. 

SAISIE. 'Shft S' permettra de retourner en saisle. 
Les nouvelles valeurs seront raJoutee3 a la suite 
des donnees deja rentrees. 

VISUALISATIONS 'Shft V vous servira a viaualiscr 
les donnees rentrees, et ce a partir d'un numero de 
depart sals! (il doit etre compris entrc i et It- 
nombre de donnees rentrees, sans quol 11 sera refuse] 
'Enter' apres une valeur permet de vlsuallser la aut- 
vante, jusqu'a la derniere, le numero de depart 
etant ensuite redemande. 

CORRECTION. 'Shft C . Le fonctionnement eat idcntl- 
que a la visualisation, a la seule difference qu'a- 
pres avoir visualise une valeur, le fait de taper 
sur 'Enter' vous permettra de saisir La nouvelle 
donnee. Le remplacement et le nouveau total sont 
calcules immediatement. La salsie de 'EnLer' sans 
avoir tape de chiffres pour le remplacement a>: La 
valeur est refusee. 



DIVERS 

Chaque fois qu'un point d' interrogation apparatt, une 

valeur numerique doit etre rentree (dans tOUa les 

cas 'Enter' seul est refuse). 

On passe d'une operation a une autre par 'Shft" et 

une lettre. 

II est possible d'arreter le TRS-80 POCKET, puis de 

le remettre en route sans perdre nl les donneen. ni 

les variables de controle. 

Les etiquettes ont ete choisies pour leur groupe- 

raent, et leur mneraonique : 

D . Debut (ou depart.) 

S . Saisie 

C . Correction 

V . Visualisation 

F . Resultat (en dessous du R, car celul-.'. n'etst pas 



une touche reservable). 



off on 

q w e r t y 

a LUUDE g h 

z x Elm b n 



Michel Claveau 
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dos deaaz. 



BASIC2 - BLINK - BOOT - BREAK - BUILD 



BASIC 2 

BLINK 

BOOT 

BREAK 

BUILD 



Le Modele 1 possede plusleurs Systeraes d' Exploitation 
des Disquettes (SED, ou DOS en anglais). Ces diffe- 
rents aystemes ont beaucoup de points communs, 
particuliereraent ceux de la "lignee" TRSDOS- 
NEWD0S-NEWD0S80-LD0S, qui s'inspirent tous, a 
quelques details pres, du TRSDOS de Tandy (version 
initiale 2.1). Nous publierons regulierement sous 
forme de fiches pratiques, les coratnandes de ces 
differents DOS, clasaees alphabetlquement. Ces 
fiches ne pretendent pas remplacer les manuels 
originaux qu'il est imperatif de posseder (11 
n'etait pas envisageab'le de publler sous cette forme 
1' equivalent de plusieurs centaines de pages ). 

Leur but est de fournir a l'utilisateur une 
information rapide d ' acces (classeraent alphabetique) , 
pratique (exeraples d' utilisation) , comparative 
(differents DOS) et dans une langue qu'il est cense 
connaltre (francais) . . . 

Les DOS les plus repandus ont ete retenus pour 
constituer ces fiches. Ce sont le TRSDOS version 2.3 
de Tandy, le NEWD0S80 version 2 d'Apparat et le 
LDOS version 5.0 de Lobo Drives International . En 
regie generale, nous nous baserons sur les commandes 
du TRSDOS, en signalant les differences ou les 
apporta rencontres dans les autres systemes 
d'exploltation. 



Conventions d'ecriture 



Dans la description des commandes, les mots en 
caracteres majuscules designent les commandes 
proprement dites, ainsi que les mots-cles associea. 
Les mots en caracteres minuscules ne font pas partle 
des commandes ma Is en representent la forme. Au 
moment de 1' execution, il faudra leur substituer 
le ou les mots approprles. Parrai ceux-ci, nous 
trouverons par exemple : "nomfich", qui designe 
un nom de fichier, "rnotpasse" qui signifie qu'un 
mot de passe (password) est attendu a cet endroit. 
Dans tous les cas, un coup d'oeil sur les exemplea 
donnes devrait lever toute ambiguite. 
Enfln, il faut signaler que le NEWDOS80 emploie 
indifferemment la virgule ou l'espace comme 
separateur dans les commandes. 



BASIC2 



But : commande employee par TRSDOS ou NEWD0S80 pour 
exploiter le BASIC niveau 2 du TRS80. Apres execu- 
tion, le DOS est hors d'usage (correspond a une 
mise sou3 tension avec la touche BREAK enfoncee). 



BLINK parametre 

Parametre : absent ou Y 
N 



But : commande employee par NEWD0S80 pour caracteri- 
ser le curseur. SI le parametre est Y (ou est absent) 
le curseur clignote (blink en anglais). Si le para- 
metre est N, le curseur est fixe. 



Exemple : BLINK, Y (le curseur clignote) 

BLINK, N (le curseur est fixe) 



BOOT 



But : pour LDOS et NEWD0S80, correspond a un appui 
sur le bouton RESET. Le premier secteur de la dis- 
quette est charge en meraoire (bootstrap) et est 
execute. II s'en suit une re-lnitlalisatlon complete 
du systeme. 



Durant la phase de re-lnitiallsation (mise sous ten- 
sion, bouton BESET ou ordre BOOT), deux touches du 
clavier sont consultees : ENTER et 'fleche haute'. 
Si ENTER est enfoncee, 1' ordre AUTO est ignore (voir 
AUTO ) . 

Si 'fleche haute' est enfoncee, le "driver" clavier 
n'est pas intercepte par le DOS (seule la routine 
ROM est utillsee). L'anti-rebonds du clavier ain3l 
que la fonction repetition automatlque des touches 
ne sont done pas pris en corapte. Cela peut s'averer 
necessalre pour 1 'execution de certains programmes 
venant recouvrir une partie du DOS (ecraseraent pro- 
bable de la routine anti-rebonds) . 



De plus, avec LDOS, un appui sur la touche CLEAR 
empeche 1 'execution du configurateur automatlque 
(voir commande SYSTEM). Cette touche ddit aussi Stre 
maintenue avec 'fleche haute' pour eviter 1' inter- 
ception du driver clavier. 

Avec LDOS, on trouve d' autre part une possibtlite 
d'appel automatlque du DEBUG (outil de mise au point) 
si la touche D est, maintenue enfoncee. 



BREAK parametre 

Parametre : absent ou Y 
N 



But : Cette commande NEWD0S80 cermet de vallder 
(parametre Y) ou d'invalider (parametre N) l'effet 
de la touche BREAK. L' Invalidation est annulee des 
le retour au prochain message "DOS READY". 
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Exeraple : 



BREAK, N 
BASIC 



sera sans effet (DOS READY aprea la premiere comman- 
de). II faudra faire : 

BASIC 

CMD "BREAK, N" 

et cette foia, la touche BREAK sera bien lnvalidee 
dans BASIC. 



BUILD nomfich (parametre) 

Parametre : APPEND 
HEX 



But : cette commande LDOS permet de construlre faci- 

lement un flchier de commandea (voir CHAIN et AUTO) 

aur diaque, a parttr du clavier (ou tout autre orga- 

ne assigne a ce dernier). SI l'extenslon du nom de 

flchier n'est pas specif lee, ce sera lmpllcltement 

'/JCL'. Si l'on ne desire pas donner d'extension, 11 

suffira de faire sulvre le nom de flchier du symbole 

'/*. 

Le flchier est constitue a partir du clavier, llgne 

par llgne (255 caracterea max par llgne), chaque 

llgne etant terminee par un appui sur la touche 

ENTER. 

Soit a executer par exemple, le chainage autoraatlque 

suivant : 

DIR 

BASIC 

LOAD "PROG" 

le nom "FICH" etant donne a ce flchier de commande 
sur dlsque, il suffira de frapper : 



BUILD FICH 

DIR 

BASIC 

LOAD "PROG" 

(break) 



(enter) 
(enter) 
(enter) 
(enter) 



Notez que la touche BREAK clot le flchier et declen- 
che sa aauvegarde sur dlsque sour le nom "FICH/JCL" . 
Ce flchier pourra ensulte etre execute par : 

CHAIN FICH 

Le flchier 'nomfich' ne doit pas etre present sur 
dlsque au moment de 1 'execution de la commande BUILD, 
sauf si le parametre APPEND est specific. Dans ce 
dernier cas, les lignea de commandes entrees apres 
BUILD seront ajoutees au flchier 'nomfich' apres 
appui sur la touche BREAK. 

Si le parametre HEX est utilise, les caracterea com- 
poaant chaque ligne aont entrea sous forme hexadecl- 
male (00 a FF), et non plus sous forme ASCII. Cela 
permet ainsi d'inclure des codes blnalrea (graphl- 
ques par exemple) dans le fichier de commande. Cha- 
que octet dolt etre entre sous forme de deux diglta 
hexadecimaux (00 a FF) aana eapaces aeparateura, et 
chaque ligne doit etre terminee par 'OD' (code du 
retour chariot), la touche ENTER etant aana effet 
sur le contenu du fichier. 

Si nous voulons nous compliquer la vie... et ajouter 
la commande RUN a notre precedent progrmame, nous 
pourrons faire : 

BUILD FICH (APPEND, HEX) (enter) 

52551E0D (enter) 

(break) 



Index des 
mots-cles 



La liste des mots-cles figurant ci-dessous eat 
destinee a etre exploitee par le programme de 
gestion des articles decrit dans le numero 1 de 
TRACE (pages 58 a 61). Le format est le suivant: 



Nom abrege de 1" article, numero de page 
mots-cles. 



1 a 'i 



En prenant 1' habitude d'entrer cette liste a 
chaque numero de TRACE, vous constltuerez ainsi une 
p«tite base de donnees vous permettant de trouver 
plus efficacement et plus rapidemenl. 1 'article que 
vous cherchez. Bien entendu , cette liste est donnee 
a titre lndicatif, et vous pourrez toujours en mo- 
difier ou en completer le contenu, afin de 1 'adapter 
a vos besoins ; mala avant toute chose, vous devez 
vous lmposer une certalne normalisation des mots- 
cles (en principe, lis sont limites a 12 caracterrs) 
PROGRAMME par exemple, indlquera toujours qu'uo 
listage de programme est donne dans 1 'article. Pour 
cela aussl, faites-nous part de voa ldees! 



LNW-80, 17: LNW80 , COMPATIBLES, MATERIEL 

MODELE 16, 19: M0DELE16, 68000, MATERIEL 

POQUETTES, 19: SHARP 1500, PC2, MATERIEL 

ESSAI EDTASM+, 20: EDTASM, ASSEMBLEUR, ESSAI, 

L0GICIEL 

ESSAI ADVENTURE, 21: AVENTURE, JEU, ESSAI, LOGICIEL 

LIBRAIRIE, 22: LIVRES, ESSAI 

SOMME DE CONTROLE, 27: C0NTR0LE , ERREUR, LOGICIEL, 

PROGRAMME 

DANS LE BATIMENT, 31: APPLICATION, PROF, VISICALC 

DANS LES TRANSPORTS, 33: APPLICATION, PROF, 

MODELE 1, 0PTIQUE 

PROGRAMMES D'ENSEIGNEMENT, 35: APPLICATION, 

ENSEIGNEMENT, PROGRAMME 

OLYMPIC DECATHLON, 38: JEU, ESSAI, LOGICIEL 

MUMATH, 39: ESSAI, LOGICIEL, LISP, MATHS 

MATHIC, 12: JEU, PROGRAMME, ARITHMETIOUE 

DIFFERENCES ENTRE 1 ET 3, W: MODELE1, M0DELE3, 

MATERIEL, LOGICIEL 

PREVISIONS, 47: PROGRAMME, PREVISIONS, STATISTI0UES 

NEVADA COBOL, 50: ESSAI, LOGICIEL, LANGAGE, COBOL 

MAPPER CP/M, 52: ESSAI, MATERIEL, CP/M, M0DELE1 

VARIABLES EN MEMOIRE, 53: LOGICIEL, BASIC, 

VARIABLES 

0UTILS, 55: OUTILS, BASIC, ASSEMBLEUR, M0NITEUR 

BOITE DE CACHOUS, 57: MATERIEL. COMMUNICATION, 

M0DELE1, M0DELE3 

AMPLI BF, 56: BRICOLAGE, AMPLI, SON, MODELE 1 

MULTIPLICATION EGYPTIENNE, 59: POQUETTE, PROGRAMME, 

ARITHMETIOUE 

TRACE DE COURBES, 60: POQUETTE, COURBES, CHAI.NES, 

PROGRAMME 

MINI-TRAITEMENT DE TEXTES, 61: POQUETTE, TDT, 

PROGRAMME 

AVENTURE, 62: POQUETTE, AVENTURE, PROGRAMME, JEU 

ADDITIONNEUR , 61: POQUETTE, ADDITION, PROGRAMME, 

VERIFICATION 

FICHE DOS A A Z, 65: FICHE, DOS 
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